trouver sa clef de windows

Voir le sujet précédent Voir le sujet suivant Aller en bas

trouver sa clef de windows

Message par modérateur LOU0000 le Dim 5 Fév - 21:08

ouvrir  un bloc-note vierge

copier dedans



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



puis enregistrer sous bureau par exemple et type tous les fichier et le nom du fichier CléWindows.vbs puis enregister



sa le mettra sur le bureau en forme de fichier  d une grande lettre S

puis cliquer dessus 2 fois et voila la clef sa-fiche  
avatar
modérateur LOU0000
Admin

Messages : 99
Date d'inscription : 09/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum