Bonjour,
Enregistrer ce qui suit (entre les lignes ______) dans un fichier nommé key.vbs (copier /coller avec bloc-notes)
ça a au moins l'avantage qu'on sait ce qu'il y a dans le programme, contrairement aux diverses autres solutions.
___________
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
___________
et ensuite double clic dessus, ça affichera la clé. (ne convient pas pour Windows 8).
Mais attention, vérifie quelques lettres parce que selon le constructeur il n'est pas certain que cette clé soit celle qui est sur l'étiquette, et elle ne fonctionnera pas forcément.
Tu parles de CD de réinstallation, il n'y a peut-être même pas besoin de clé dans ce cas là, à moins que ton cas soit plus compliqué que ça.
Et attention, l'installation ne peut pas se faire avec n'importe quel CD de n'importe quelle version.
Message édité par yf38 le 01-04-2013 à 14:54:09