- #Microsoft office 2013 product key finder free install
- #Microsoft office 2013 product key finder free serial
- #Microsoft office 2013 product key finder free software
Tmp2 = tmp2 & " " & Hex(HexDigitalPID(i - StartOffset))įor N As Integer = (sLen - 1) To 0 Step -1ĭim Value As Integer = ((HN * 2 ^ 8) Or HexDigitalPID(N)) HexDigitalPID(i - StartOffset) = HexBuf(i) 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'
#Microsoft office 2013 product key finder free serial
Recover your lost key or serial for Windows 8, Windows 7, Vista, XP, 2000, 2003, 2008.
#Microsoft office 2013 product key finder free software
If '圆4' Then SetError(1, 0, "Product not found") Windows Product Key Finder Professional is a software utility which allows you to find and recover your CD Product key for Windows or Office programs for the purposes of reinstalling / repairing your Windows or Microsoft Office setup. $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.
#Microsoft office 2013 product key finder free 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).
0 kommentar(er)
