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