hey buddy, j'ai eu exactement le même problème.
J'ai accidentellement désinstallé mon id et ma clé de produit en utilisant "slmgr/udk" dans l'invite de commande, mais ne faites pas cela.
Suivez les instructions ci-dessous et c'est compatible avec windows 7/8/8.1/10.
mais vous n'avez besoin de rien. Il suffit de faire comme suit :
- ouvrir le bloc-notes
- Copier et coller le texte suivant dans la fenêtre du bloc-notes.
Option Explicit
Dim objshell,path,DigitalID, Resultat
Set objshell = CreateObject("WScript.Shell")
'Définir le chemin de la clé de registre
Path = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"
'Valeur de la clé de registre
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Obtenir ProductName, ProductID, ProductKey
ProductName = "Product Name : " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID : " & objshell.RegRead(Path & "ProductID")
ProductKey = "Clé installée : " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file ?", vbYesNo + vbQuestion, "Sauvegarder les informations sur les clés Windows") alors
Sauvegarder les données du produit
End If
'Convertir les binaires en caractères
Fonction ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
&apos ;Vérifier si le système d'exploitation est Windows 8
isWin8 = (Key(66) 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Courant = Courant* 256
Courant = Clé(j + KeyOffset) + Courant
Clé(j + KeyOffset) = (Courant 24)
Courant=Courant Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Courant+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
&apos ;Enregistrer des données dans un fichier
Fonction Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Obtenir le nom d'utilisateur actuel
Nom d'utilisateur = objshell.ExpandEnvironmentStrings("%UserName%")
'Créer un fichier texte sur le bureau
fName = "C:Users" & UserName & "DesktopWindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function
3. Enregistrez le texte ci-dessus dans un fichier avec l'extension ".vbs" sur le Bureau.
Bonus tip : Pour vous assurer que vous enregistrez correctement le fichier avec l'extension ".vbs", vous pouvez taper son nom entre guillemets, par exemple, "BackupWindowsKey.vbs".
4. Ouvrez maintenant votre "fichier BackupWindowsKey.vbs".
5. Voilà, votre clé de produit s'affiche à l'écran !
.