Si vous avez perdu ou oublié où vous aviez stocké votre clé de produit Windows, j'ai une solution pour vous. Aujourd'hui, nous allons voir comment un simple script VBS peut être utilisé pour nous montrer la clé de produit d'une copie installée de Windows 10, Windows 8 ou Windows 7. C'est une solution simple pour extraire votre clé de produit du système d'exploitation installé sur votre PC sans en utilisant un logiciel tiers. Et c'est parti.
Publicité
En fait, plus tôt, j'ai publié un solution similaire qui utilisait PowerShell. mais de nombreux utilisateurs se sont plaints que cela échoue pour eux. PowerShell peut nécessiter des compétences utilisateur supplémentaires et des ajustements supplémentaires pour exécuter des applets de commande non signées.
¿Qué significa sb en la historia de Snapchat?
Par rapport à PowerShell, cette solution VBScript est presque parfaite. Tout ce que vous avez à faire est de cliquer simplement sur le fichier. À afficher votre clé de produit Windows 10
- Ouvrez le Bloc-notes.
- Copiez et collez le texte suivant dans la fenêtre Bloc-notes
Option Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Définir le chemin de la clé de registre Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Valeur de la clé de registre DigitalID = objshell.RegRead (Chemin & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Chemin &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installed Key:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Afficher la boîte de messagerie si vous enregistrez dans un fichier Si vbYes = MsgBox (ProductData & vblf & vblf & 'Save to a file?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') puis Save ProductData End If 'Convertir le binaire en caractères Fonction ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Enfin, keypart1, insérez `` Vérifier si le système d'exploitation est Windows 8 isWin8 = (clé (66) 6) et 1 clé (66) = (Key (66) And & HF7) Or ((isWin8 And 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Key (j + KeyOffset) = (Current 24) Current = Current Mod 24 j = j -1 Loop While j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 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 Si ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Enregistrer les données dans un fichier Fonction Enregistrer (données) Dim fso, fName, txt, objshell, UserName Set 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 WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function - Enregistrez le texte ci-dessus dans un fichier avec l'extension «.vbs» sur le bureau.
Conseil bonus: pour vous assurer que vous enregistrez correctement le fichier avec l'extension «.vbs», vous pouvez taper son nom entre guillemets, par exemple, «BackupWindowsKey.vbs».
- Ouvrez maintenant votre fichier BackupWindowsKey.vbs
- Voila, votre clé de produit s'affiche à l'écran!
Cliquez ici pour télécharger le fichier BackupWindowsKey.vbs
J'ai testé cette astuce sur Windows 7, Windows 8 et Windows 10. Cela fonctionne parfaitement dans tous les systèmes d'exploitation mentionnés. Crédits: nononsence @ MDL .
