Janv. 15
Si vous utilisez une version de Windows OEM, elle contient un numéro de série différent de celui qui se trouve votre étiquette PC.
On l'appelle "Master Key" en anglais. En cas de réinstallation vous pouvez utiliser cette "Master Key" pour éviter l’activation (Uniquement pour les versions OEM préinstallées d'usine).



Ouvrez bloc-notes windows ou votre éditeur favori et copiez-collez le code suivant :


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


Allez ensuite dans le menu "Fichier" / "Enregistrer sous":
Nommez le fichier "cle.vbs".
Dans le type de fichier sélectionnez: "tous les fichiers"

Enfin double-cliquez sur le fichier "cle.vbs" que vous avez créé pour découvrir votre clé de Windows.


source : pcentraide


Posté par Choumi

0 Rétroliens

  1. Pas de rétroliens

0 Commentaires

Afficher les commentaires en(Vue non groupée | Vue groupée)
Pas de commentaires
L'auteur n'a pas autorisé l'ajout de commentaires pour ce billet.