Comment récupérer sa clé windows 10 ?

12 thoughts on “Comment récupérer sa clé windows 10 ?”

1. Bonjour Alban

   Ca ne fonctionne pas pourtant je suis bien les étapes
   Mon fichier enregistré sur mon bureau ne présente pas le même logo ??

2. voici le message que j’obtiens
   script:C:\Users\Admin\Desktop\clé windows.vbs
   ligne :1
   carat.: 29
   erreur: caractère incorrect
   code:800A0408
   source: erreur de compilation microsoft VBScipt
   Que faire

   • voici le code corrigé
     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

   • voici le code exacte
     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

     • Merci c’est tout à fait exact

3. Meme probleme,
   le meme message s’affiche

4. Voici ce qu’il faut vraiment copier/coller :

   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

5. Bonjour
   Vous pouvez pas faire plus simple car on est pas tous des profs de l’ordinateur et dans la vidéo c’est trop rapide. Cordialement

6. ca vaut rien aucun code fonctionne .ne perdez pas vautre temps avec cela.

7. oui rien ne fonctionne ca vaut la peine de faire des tuto

8. 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
   ============= Correction ================
   1) Remplacer tous les caractères ‘«’ et ‘»’ par ‘ »‘ (double quote)
   2) Dans KeyOutput = » – » & KeyOutput : remplacer le tiret de » – » par un vrai signe moins –
   3) Dans If (((29 – i) Mod 6) : remplacer le tiret de 29 – i par un vrai signe moins –
   Remarques: il y avait des caractères parasites dans le script, certains ne sont pas visibles à l’œil nu.
   J’ai testé et ça marche.

9. L’enregistreur des commentaires transforme les double quote en caractère ‘«’.
   D’où le post-scriptum ci-dessous:
   1) Remplacer tous les caractères ‘«’ et ‘»’ par  » (double quote) touche [3] du clavier