Nos utilisateurs se demandent 💬
Salut,
J’ai exactement le même problème depuis environ une semaine ou deux. Cela fonctionne si je redémarre l’ordinateur mais dès que je me réveille du mode veille, le filigrane est de nouveau activé et Windows n’est pas activé.
Voir l’image de la commande ci-dessous.
Une idée de comment régler ça ? Merci!
c’était un jour et je semble avoir parlé trop tôt, car le problème est de retour avec le même code d’erreur. Voici donc les informations que vous avez demandées et j’espère qu’elles vous seront utiles
►
La plus grande partie à temps cette commande ne fonctionne pas
chemin wmic SoftwareLicensingService obtenir OA3xOriginalProductKey.
►
Aussi bien que ça Vous pouvez utiliser l’application ShowKeyPlus, la télécharger depuis le MS Store.
Quelque chose ressemble à ça :
La troisième option de script sera utilisée :
1. Ouvrez le bloc-notes
2. Collez ce code:
Option spécifiée
Pas d’objshell, chemin, DigitalID, résultat
Définir objshell = CreateObject (“WScript.Shell”)
‘Définir le chemin de la clé de registre
Path = “HKLM SOFTWARE Microsoft Windows NT CurrentVersion “
‘La valeur fondamentale du registre
DigitalID = objshell.RegRead (Chemin & “DigitalProductId”)
Dim ProductName, ProductID, ProductKey, ProductData
‘Obtenir ProductName, ProductID, ProductKey
ProductName = “Product Name:” & objshell.RegRead (Chemin & “ProductName”)
ProductID = “Product ID:” & objshell.RegRead (Chemin & “ProductID”)
ProductKey = “Clé installée:” & ConvertToKey (DigitalID)
ProductData = Nom du produit & vbNewLine & ProductID & vbNewLine & ProductKey
‘Afficher la boîte de mess si seulement enregistrer le fichier
Si vbYes = MsgBox (ProductData & vblf & vblf & “Save to file?”, VbYesNo + vbQuestion, “BackUp Windows Key Information”) alors
Enregistrer les données du produit
Fin si
‘Convertir le binaire en caractères
Fonction ConvertToKey (clé)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
‘Vérifiez si Windows 8 est Windows
isWin8 = (Touche (66) 6) Et 1
Clé (66) = (Clé (66) Et & HF7) Ou ((isWin8 Et 2) * 4)
i = 24
Maps = “BCDFGHJKMPQRTVWXY2346789”
Fais
Courant = 0
j = 14
Fais
Courant = Courant * 256
Current = Key (j + KeyOffset) + Current
Clé (j + KeyOffset) = (Courant 24)
Current = Mod 24 actuel
j = j -1
Boucle Qui j> = 0
i = i -1
KeyOutput = Central (Cartes, Courant + 1, 1) & KeyOutput
Dernier = actuel
Boucle Who i> = 0
keypart1 = Lár (KeyOutput, 2, Last)
entrez = “N”
KeyOutput = Remplacer (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
Si Last = 0 Then KeyOutput = enter & KeyOutput
ConvertToKey = Lár (KeyOutput, 1, 5) & “-” & Lár (KeyOutput, 6, 5) & “-” & Lár (KeyOutput, 11, 5) & “-” & Lár (KeyOutput, 16, 5) & “-” & Lár (KeyOutput, 21, 5)
Fonction finale
‘Enregistrer les données dans un fichier
Fonction de sauvegarde (données)
Dim fso, fName, txt, objshell, UserName
Définir objshell = CreateObject (“wscript.shell”)
‘Obtenir le nom d’utilisateur actuel
UserName = objshell.ExpandEnvironmentStrings (“% UserName%”)
‘Créer un fichier texte sur le bureau
fName = “C: Users ” & UserName & ” Desktop WindowsKeyInfo.txt”
Définissez fso = CreateObject (“Scripting.FileSystemObject”)
Définissez txt = fso.CreateTextFile (fName)
txt.Writeline Données
txt.Close
Fonction finale
3. Enregistrer sous PK.vbs et Enregistrer sous: Tous les fichiers
Ce script enregistrera votre clé de produit dans un fichier texte.
Une fois que vous connaissez la clé de produit
Cours:
slmgr / upk [to remove the current Product Key]
Slmgr / ipk [Product Key retrieved]
J’espère que ça aide.
