Retrouver sa clé produit de Windows - Windows toutes versions
Publié : 20 juin 2021 14:57
Vous n'arrivez pas à mettre la main sur votre clé de Windows ? Pourtant, si vous devez le réinstaller suite à des problèmes, vous en avez absolument besoin. Grâce à un simple script et sans installer de logiciel, voici comment récupérer la clé produit de votre Windows.
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
3. Cliquez sur le menu Fichier puis sur Enregistrer sous.
4. Donnez un nom au script en le suivant de l'extension .vbs, CléWindows.vbs par exemple.
Pour connaître votre clé produit, double cliquez simplement sur le fichier CléWindows.vbs sur votre Bureau.


- Ouvrez le bloc-notes en cliquant sur son raccourci dans le menu démarrer.
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
3. Cliquez sur le menu Fichier puis sur Enregistrer sous.
4. Donnez un nom au script en le suivant de l'extension .vbs, CléWindows.vbs par exemple.

Pour connaître votre clé produit, double cliquez simplement sur le fichier CléWindows.vbs sur votre Bureau.

