How to retrieve your Windows 10 key [script]

[ERU]

So, you installed 10, and now you want to know what your actual key is. Guess what? Speccy doesn't work. Magic Jellybean not only doesn't work, but now it's installing adware without permission. (Wander Burst, if interested.) If you use either of those products, you're very likely to come up with one of the following:

Windows 10 Home: TX9XD-98N7V-6WMQ6-BX7FG-H8Q99
Windows 10 Pro: VK7JG-NPHTM-C97JM-9MPGT-3V66T
Windows 10 Home Single Language: 7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH
Windows 10 Enterprise: NPPR9-FWDCX-D2C8J-H872K-2YT43

Guess what? None of those are your current key. It's a generic key that's thrown back by the activation server as sort of an ACK that the system has been activated. Interestingly/ironically, if you actually use one of those keys to register, it puts your system into what's essentially the Insider program, and your system is NOT activated. If you want to know what your actual key is, copy the following script:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

Paste it to Notepad, click save as, select all files, and name it something.vbs, where something is a name you can remember (I chose keyfinder.vbs - catchy, eh?). Save it to your desktop (or other easily remembered location), run it, and viola. Hit ctrl-c while the window is open, and it copies your key to the clipboard so you can paste it anywhere you may find to be convenient.

[ERU]

The keys that this script produces will not let you re-install though, I just tried this and it said invalid key during installation.

All you need to do is leave keys blank, say skip or do later at each point and it will install fine and re-activate as Microsoft has your hardware details on file to re-activate.