Čas od času, třeba před výměnou systémového disku v PC, je potřeba zjistit, jaký product key mají vaše nainstalovaná Windows, která často bývají výrobci předinstalovaná. Nebo pokud si chcete stáhnout instalaci Windows ze stránek Microsoftu, budete potřebovat váš licenční klíč. Jenže jak ho zjistit?
- Předně se podívejte na to, jestli není váš licenční klíč napsaný na licenční nálepce někde na PC. Dost často ho tam najdete.
- V moderních noteboocích s předinstalovaným Windows se dá licenční klíč najít v UEFI / BIOSu.
- Licenční klíč zjistíte často také pomocí utilit, které zjišťují systémové informace. Příkladem může být Free PC Audit.
- Pokud vám nic z tohoto nevyhovuje, pak stačí následující kód uložit s příponou vbs a spustit. Kód funguje pro všechna Windows. Hotový VBS soubor si můžete stáhnout v ZIP archívu zde.
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