Afficger la clé de licence Windows avec un script Vbscript.

Afficher la clé du produit simplement.
Une chose que j'ai toujours trouvé frustrante c'est d'acheter un PC sans numero de serie sur l'étiquette (entre autres) et que vous ne pouvez pas toujours retrouver la clé de produit.
Comment un Geek retrouve cette clé ?
On ouvre un nouveau document texte et on change l'extension en:
.vbs
On y inscrit ceci:
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
Il fonctionne très bien!
Appuyez sur Ctrl + C tandis que la boîte de dialogue est ouverte pour copier votre code dans le presse-papiers.
Les commentaires sont fermés.