comment récupérer sa clé windows?

Question

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...


Configuration: Windows 7 / Internet Explorer 8.0

deniz2694 · Answer

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.

Comment récupérer sa clé windows?

1 réponse

Newsletters