Sujet Précédent Sujet Suivant

Comment récupérer sa clé windows?

Fermé
intissar - 17 sept. 2011 à 01:27
 intissar - 17 sept. 2011 à 09:12
Bonjour,


Je suis à la recherche de ma clé windows 7, elle figurait sur le dos de mon PC mais elle est à moitié lisible.
Y a t-il une méthode pr récupérer ma clé sur mon PC, car j'ai vu pas mal de méthode (aida 32, etc...) mais à chaque fois ca me met INCONNU.
Je ne sais vraiment pas comment faire!!!
Je vous remercie d'avance de me venir en aide...


A voir également:

1 réponse

Réponse 1 / 1
deniz2694 Messages postés 207 Date d'inscription mercredi 17 août 2011 Statut Membre Dernière intervention 15 août 2012 36
17 sept. 2011 à 01:38
Bonjour.

Créez un fichier texte (.txt) sur votre bureau et copiez-collez ce texte dedans


Dim objFS, objShell
Dim strXPKey

Set objShell = CreateObject("WScript.Shell")

strXPKey = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
If Len(strXPKey) > 0 Then
WScript.Echo "Clé=" & chr(34) & GetKey(objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) & chr(34)
End If

Function GetKey(rpk)
Const rpkOffset=52:i=28
szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
Do
dwAccumulator=0 : j=14
Do
dwAccumulator=dwAccumulator*256
dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
rpk(j+rpkOffset)=(dwAccumulator\24) and 255
dwAccumulator=dwAccumulator Mod 24
j=j-1
Loop While j>=0
i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
if (((29-i) Mod 6)=0) and (i<>-1) then
i=i-1 : szProductKey="-"&szProductKey
End If
Loop While i>=0
GetKey=szProductKey
End Function



Enregistrez ce fichiez sous votre bureaux et nommez le cle.vbs en prenant soin de choisir "tout les fichiers" au moment de la sauvegarde.

Double cliquez sur le fichier qui vient d'être crée.
1
intissar
17 sept. 2011 à 09:12
Bonjour,

Je viens de faire la manip mais tjrs rien!
Je ne comprends plus rie à ce PC.....
0