Xenop92 a écrit :
Bonjour ! Histoire de savoir si la clé que j'ai acheté est bien là ou elle devrait être? Edit : Par acquis de conscience j'en ai racheté une, même message d'erreur
|
J'ai bien peur que tu te sois fait avoir (deux fois), tu as du acheter une clé pas cher à je ne sais qui...
Je peux me tromper mais c'est le plus probable.
Ne me dis pas Amazon, sans le vrai vendeur.
ZHPdiag ne te donnera pas la clé que tu as entré.
Si tu veux voir la clé qu'il y a là où elle devrait être, faire un copier coller de ce qui suit dans le bloc note et l'enregistrer en le nommant key.vbs
Ensuite, tu fais un double clic sur key.vbs et tu auras une "clé" affichée sur l'écran, même s'il y a n'importe quoi.
Ce sera probablement celle que tu as entré, ce qui ne veut pas dire qu'elle est valable.
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
Message édité par yf38 le 21-04-2018 à 15:40:22