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

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

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

 

 

Voici le code à copier dans le bloc note :

 

*************************

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

****************************

 

Alban

7 commentaires

GasmiF Publié le3:35 - Sep 12, 2019

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 ??

Marc Publié le1:24 - Avr 3, 2020

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

    Ahmed Publié le3:46 - Mai 5, 2020

    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

    Ahmed Publié le3:48 - Mai 5, 2020

    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

      ….. Publié le2:07 - Juin 14, 2020

      Merci c’est tout à fait exact

nad Publié le9:38 - Avr 19, 2020

Meme probleme,
le meme message s’affiche

Louan Publié le2:08 - Juin 14, 2020

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