Kuinka saada Windowsin tuotetunnus esille helposti

Aina silloin tällöin esiin tulee laitteita, joiden tuotetunnusta tai productkey pitäisi saada esille.

Itselleni asia tulee eteen etenkin korjatessa koneita, joiden tuotetunnus koneen pohjasta on niin kulunut, että siitä ei saa mitään selkoa.

Seuraavalla helpolla kikalla pitäisi homma toimia testatusti ainakin Windows 7 ja 10 koneissa.

Ohje:


Klikkaa hiiren oikealla -> Uusi -> Tekstitiedosto

Lisää tekstitiedostoon seuraava:

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

Klikkaa -> tiedosto -> tallenna nimellä

Tämän jälkeen kirjoita tiedostonimeksi:

productkey.vbs

Ja  muodoksi Kaikki tiedostot

Tiedostoa klikkaamalla eteesi aukeaa tuotetunnus eli productkey

Voila.