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.
