jeudi 26 janvier 2017

Trouver votre clé de Windows 10 facilement

 
Vous avez installé Windows 10, mais vous trouvez plus votre clé de Windows, vous pouvez la
trouver facilement
Copier ces lignes de code 
 
 
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 
 
Et collez les dans un éditeur du texte, par exemple bloc-notes
 
 Cliquez sur Fichier, puis Enregistrer sous


Donnez un nom de votre choix, puis .vbs


 Quand vous cliquez sur le fichier .VBS 


Windows affiche la clé de Windows
 
 

Aucun commentaire:

Enregistrer un commentaire