Hoe u uw productsleutel kunt bekijken in Windows 10, Windows 8 en Windows 7

Als u bent verloren of vergeten waar u uw Windows-productsleutel had opgeslagen, heb ik een oplossing voor u. Vandaag zullen we zien hoe een eenvoudig VBS-script kan worden gebruikt om ons de productsleutel van een geïnstalleerd exemplaar van Windows 10, Windows 8 of Windows 7 te tonen. Het is een eenvoudige oplossing om uw productsleutel te extraheren uit het besturingssysteem dat op uw pc is geïnstalleerd zonder software van derden te gebruiken. Daar gaan we.

Eigenlijk plaatste ik eerder een soortgelijke oplossing die PowerShell gebruikte. maar veel gebruikers klaagden dat het voor hen faalde. Power shell vereist mogelijk extra gebruikers vaardigheden en extra tweaks om niet-ondertekende cmdlets uit te voeren.

Vergeleken met PowerShell is deze VBScript-oplossing bijna perfect. Het enige dat u hoeft te doen, is op het bestand te klikken. Tot uw productsleutel voor Windows 10 bekijken

1. Kladblok openen.
2. Kopieer en plak de volgende tekst in het Kladblok-venster

   Optie expliciet. Dim objshell, pad, DigitalID, resultaat. Stel objshell = CreateObject("WScript. Shell") 'Registersleutelpad instellen Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registersleutelwaarde DigitalID = objshell. RegRead (Pad & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Productnaam: " & objshell. RegRead (Pad & "Productnaam") ProductID = "Product-ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "Geïnstalleerde sleutel: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Toon messbox indien opgeslagen in een bestand. Als vbYes = MsgBox (ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information"), sla dan ProductData op. Stop als. 'Binair omzetten naar tekens Functie ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'Controleer of het besturingssysteem Windows 8 is isWin8 = (Sleutel (66) \ 6) And 1 Key (66) = (Sleutel (66) And &HF7) Of ((isWin8 And 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current * 256 Stroom = Sleutel (j + KeyOffset) + Current Key (j + KeyOffset) = (Huidige \ 24) Current=Current Mod 24 j = j -1 Loop While j >= 0 i = i -1 KeyOutput = Mid (Kaarten, Current+ 1, 1) & KeyOutput Last = Stroomlus Terwijl i >= 0. If (isWin8 = 1) Dan keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Vervang (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insert & KeyOutput End If. ConvertToKey = Midden (KeyOutput, 1, 5) & "-" & Midden (KeyOutput, 6, 5) & "-" & Midden (KeyOutput, 11, 5) & "-" & Midden (KeyOutput, 16, 5) & "-" & Midden (KeyOutput, 21, 5) End Function 'Save data to a file Function Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Get current gebruikersnaam. Gebruikersnaam = objshell. ExpandEnvironmentStrings("%UserName%") 'Maak een tekstbestand op het bureaublad. fName = "C:\Users\" & Gebruikersnaam & "\Desktop\WindowsKeyInfo.txt" Stel fso = CreateObject("Scripting. FileSystemObject") Stel txt = fso. CreateTextFile (fName) txt. Schrijflijngegevens txt. Sluiten Einde Functie 

3. Sla de bovenstaande tekst op in een bestand met de extensie ".vbs" op het bureaublad.
   Bonustip: om ervoor te zorgen dat u het bestand correct opslaat met de extensie ".vbs", kunt u de naam tussen dubbele aanhalingstekens typen, bijvoorbeeld "BackupWindowsKey.vbs".
   
4. Open nu uw BackupWindowsKey.vbs-bestand
5. Voila, uw productsleutel wordt op het scherm weergegeven!
   

Klik hier om het bestand BackupWindowsKey.vbs te downloaden

Ik heb deze truc getest op Windows 7, Windows 8 en Windows 10. Het werkt feilloos in alle genoemde besturingssystemen. Credits: nonsence @ MDL.