Créez un document  texte sur votre bureau.


Copiez le texte suivant :


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



Le coller dans "Nouveau document texte" crée précédemment.


 

Enregistrez le fichier en faisant "fichier" puis "enregistrer sous".


 

Changez le nom du fichier en clef windows.vbs, sélectionnez le bureau et cliquez sur enregistrer.


Le fichier apparait sur cette forme:


Il ne vous reste plus qu’à ouvrir le fichier et une fenêtre vous indiquera votre clef Windows.