MsgBox ConvertToKey (WshShell.RegRead ("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId"))
ConvertToKey (Key) Function
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
You will need to use File -> Save As , change " Save as type " to " All Files " and then name it productkey.vbs or something similar, ending with the vbs extension. You should save to the desktop for easy access.
Once you've saved the file, you can only double-click it and the pop-up window will display your product key.
Tip: If you use CTRL + C when the pop-up window is active, it will copy the contents of the window to the clipboard, and then you can paste it into Notepad or somewhere else.
The product key system is very complicated because Microsoft does not really want users to arbitrarily reinstall Windows on the computer. Instead, they want you to use the recovery media that the manufacturer provides. But the recovery media is full of bloatware you don't want to appear on your PC - that's why many computer professionals often choose to reinstall Windows on their computers.
Good luck!
See more: