Windows key

Associate
Joined
7 Aug 2020
Posts
17
I have just received my new system build from over clockers , and was wanting to know where I would find my windows key for future reference ?
 
Have you created a Microsoft account and logged in to it within windows? If not, do this as it'll register the key against your account. You don't actually need to know what it is this way.
 
Just create a new Display Windows Key.txt file and copy and paste the code below and save.

Code:
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


Rename it from Display Windows Key.txt -to- Display Windows Key.vbs

Then double click on it... presto!
 
Back
Top Bottom