So zeigen Sie Ihren Produktschlüssel in Windows 10, Windows 8 und Windows 7 an

Wenn Sie Ihren Windows-Produktschlüssel verloren oder vergessen haben, habe ich eine Lösung für Sie. Heute werden wir sehen, wie ein einfaches VBS-Skript verwendet werden kann, um uns den Produktschlüssel einer installierten Kopie von Windows 10, Windows 8 oder Windows 7 anzuzeigen. Es ist eine einfache Lösung, Ihren Produktschlüssel aus dem auf Ihrem PC installierten Betriebssystem zu extrahieren, ohne Software von Drittanbietern zu verwenden. Auf geht's.

Eigentlich habe ich früher a. gepostet ähnliche Lösung die PowerShell verwendet. aber viele Benutzer beschwerten sich, dass es für sie fehlschlägt. PowerShell erfordert möglicherweise zusätzliche Benutzerkenntnisse und zusätzliche Optimierungen, um nicht signierte Cmdlets auszuführen.

Im Vergleich zu PowerShell ist diese VBScript-Lösung nahezu perfekt. Alles, was Sie tun müssen, ist, einfach auf die Datei zu klicken. Zu Zeigen Sie Ihren Windows 10-Produktschlüssel an

1. Öffnen Sie den Editor.
2. Kopieren Sie den folgenden Text und fügen Sie ihn in das Notepad-Fenster ein

   Option explizit. Dim objshell, Pfad, DigitalID, Ergebnis. Set objshell = CreateObject("WScript. Shell") 'Pfad des Registrierungsschlüssels festlegen Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Wert des Registrierungsschlüssels DigitalID = objshell. RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Produktname: " & objshell. RegRead (Pfad & "ProductName") ProductID = "Produkt-ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "Installierter Schlüssel: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Messbox anzeigen, wenn in Datei gespeichert. Wenn vbYes = MsgBox (ProductData & vblf & vblf & "In einer Datei speichern?", vbYesNo + vbQuestion, "Windows Key Information sichern") dann ProductData speichern. Ende Wenn. 'Binär in Zeichen umwandeln Funktion ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'Check ob OS Windows 8 isWin8 = (Key (66) \ 6) Und 1 Schlüssel (66) = (Schlüssel (66) Und &HF7) Oder ((isWin8 Und 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current * 256 Strom = Schlüssel (j + KeyOffset) + Current Key (j + KeyOffset) = (Current \ 24) Current=Current Mod 24 j = j -1 Loop Während j >= 0 i = i -1 KeyOutput = Mid (Maps, Current+ 1, 1) & KeyOutput Last = Stromschleife während i >= 0. If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Ersetzen (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = Insert & KeyOutput Ende Wenn. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Mitte (KeyOutput, 21, 5) End Function 'Daten in eine Datei speichern Funktion Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Get current Nutzername. Benutzername = objshell. ExpandEnvironmentStrings("%UserName%") 'Textdatei auf dem Desktop erstellen. fName = "C:\Benutzer\" & Benutzername & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Scripting. FileSystemObject") Setze txt = fso. CreateTextFile (fName) txt. Writeline-Daten-txt. Schließen-Ende-Funktion 

3. Speichern Sie den obigen Text in einer Datei mit der Erweiterung ".vbs" auf dem Desktop.
   Bonus-Tipp: Um sicherzustellen, dass Sie die Datei mit der Erweiterung ".vbs" korrekt speichern, können Sie ihren Namen in doppelte Anführungszeichen eingeschlossen eingeben, zum Beispiel "BackupWindowsKey.vbs".
   
4. Öffnen Sie nun Ihre BackupWindowsKey.vbs-Datei
5. Voila, Ihr Produktschlüssel wird auf dem Bildschirm angezeigt!
   

Klicken Sie hier, um die Datei BackupWindowsKey.vbs herunterzuladen

Ich habe diesen Trick unter Windows 7, Windows 8 und Windows 10 getestet. Es funktioniert einwandfrei in allen genannten Betriebssystemen. Credits: Unsinn @ MDL.