South Africa’s biggest forum. Discuss, discover, and connect with thousands of members.
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
Cool. Thanks for the update.Reporting back - I did successfully switch from 32-bit to 64-bit. No problems.
So over the years, my upgrade path has been...
Win 7 Pro 32-bit --> Win 8 Pro 32-bit --> Win 8.1 Pro 32-bit --> Win 10 Pro 32-bit --> Win 10 Pro 64-bit
Am now running Win 10 Pro 64-bit on an SSD. What a difference. Should've gotten an SSD earlier.![]()
A simple way to get the product key is copy and paste the following into Notepad and save it as GetKey.vbs
Then double click on it. [...]
Cool. Thanks for the update.