Many times it happens to all of us that we want to reinstall Windows on our computer or laptop but we forget Windows Product key specially in the case of OEM versions where you don’t have physical copy of Windows. Microsoft fully support retail copy of Windows DVD as compare to OEM versions which comes with your laptop or branded computers. After some time the sticker that is pasted on the bottom of your laptop gets dirty or removed and you may lose your key. But the good thing is that your product key is still hidden in the registry files on your system but in encrypted form. So you need some kind of software or script to decrypt it.

Use VB Script instead of Software

You may be thinking why we have to use any other script when we can easily download software from web. The problem with windows key finder program is that all tiny software are free and hence carry some sort of malicious code or malware in it. So it’s better to find key with your own little Visual basic script mention below. All you have to do is to copy the script into notepad file and save it as “productkey.vbs” while selecting the save as file type to All programs.

microsoft windows product key finder

After you save the file on Desktop double click on it to run the file and a new popup will open displaying your Windows Product key.

microsoft windows product key popup

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