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.

Vous avez aimé cet article ? Alors partagez-le avec vos amis en cliquant sur les boutons ci-dessous :