

- #Ms project 2013 product key serial key
- #Ms project 2013 product key install
- #Ms project 2013 product key Activator
- #Ms project 2013 product key code
#Ms project 2013 product key Activator

Money Back Refund Guarantee when the product license you buy or download link can not work.The product key is going to be mailed in few hours by E-mail.
#Ms project 2013 product key serial key
#Ms project 2013 product key code
Locate the registry and assign it to the code and it should work fine :) Public Function GetProductKey(ByVal KeyPath As String, ByVal ValueName As String) As Stringĭim HexBuf As Object = My.(KeyPath, ValueName, 0)įor l As Integer = LBound(HexBuf) To UBound(HexBuf)ĭigits(0) = "B" : Digits(1) = "C" : Digits(2) = "D" : Digits(3) = "F"ĭigits(4) = "G" : Digits(5) = "H" : Digits(6) = "J" : Digits(7) = "K"ĭigits(8) = "M" : Digits(9) = "P" : Digits(10) = "Q" : Digits(11) = "R"ĭigits(12) = "T" : Digits(13) = "V" : Digits(14) = "W" : Digits(15) = "X"ĭigits(16) = "Y" : Digits(17) = "2" : Digits(18) = "3" : Digits(19) = "4"ĭigits(20) = "6" : Digits(21) = "7" : Digits(22) = "8" : Digits(23) = "9" The key is obtained from the Windows Registry. But it uses the exact same principle to attain the Office Key. The code below displays the Product Key for the Windows OS. Now, is there a different starting index for the Office 2013 key or is it overwritten by Lync 2013's key/Project 2013's key? Or am I going about this the completely wrong way? Registry = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64).OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Registration\", False)ĭigitalProductId = Tr圜ast(registry.GetValue("DigitalProductId"), Byte())ĭim keyEndIndex As Integer = keyStartIndex + 15 My VB.net code: This code is based on that from the net, not taking claim to making this Dim digitalProductId As IList(Of Byte) = Nothing $RegKey = 'HKLM64\SOFTWARE\Microsoft\Office\15.0\Registration' If '圆4' Then SetError(1, 0, "Product not found") $bKey = RegRead($RegKey & '\' & $var, 'DigitalProductId') If = '圆4' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Registration' $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\15.0\Registration' But again, this is the key for Project and Microsoft Office 2013 installation verifies this with the message : This key is for Microsoft Project 2013. When I run my applications that I've created, I get a key with the BWMT4 key, and the applications from the net (Belarc, SterJo, etc.) return the same key. The system I'm testing this program on has Microsoft Business Retail edition installed, and running C:\Program Files(x86)\Microsoft Office\Office15\ cscript ospp.vbs has provided me with two 5-character keys - one for Microsoft Project (BWTM4) and one for Office 2013 (7PYM4). I've checked through the net to find a few suggested programs to get the product key, and then I've delved into making the program myself using both AutoIT and VB.net.
#Ms project 2013 product key install
I've just started working on a task assigned to me by the IT department at work, to create a program that can read the product keys used to install Microsoft Office 2013 and assign it to the computer name, so they can store it in a database in case of recovery being needed (bear in mind this is a company with over 150 systems).
