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).
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
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
0 Rétroliens