Windows 10: Script to recover Windows 10 Product Key

I recently needed to recover my windows 10 product key. I quickly found this vbs script, that produced something that looked like a product key, but didn't work for me. A little more research revealed this script from u/Asmx86CCpp that I was unable to get working. I managed to combine them into the following script that worked for me. Hoping it will help someone out there.

Save as Productkey.vbs and run.

Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 Dim isWin8, Chars, i, x, Cur, KeyOutput, Last, keypart1, insert 'Check if OS is Windows 8 isWin8 = (Key(66) \ 6) And 1 Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4) i = 24 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars,Cur+ 1, 1) & KeyOutput Last = Cur Loop While i >= 0 keypart1 = Mid(KeyOutput, 2, Last) insert = "N" KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insert & KeyOutput ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5) End Function
submitted by /u/kebakent
[link] [comments]

:)

 

How to find Window Product key through VB Script

Hello, Amish,

Please follow the steps in this tutorial.

Find Windows 10 product key using VB Script

 

How to find Window Product key through VB Script

thank you

 

windows 10 key

Thanks but I don't want to do any decrypting. I want to download a Win 10 ISO from Microsoft and install it using my Win 8 key. No other steps required. Is that possible?