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

Wenn Sie verloren haben oder vergessen haben, wo Sie Ihren Windows-Produktschlüssel gespeichert 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 Verwendung von Software von Drittanbietern. Auf geht's.

Werbung

Farbe der Windows 10-Taskleiste ändern

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 Editorfenster ein

   Option Explicit Dim objshell, Pfad, DigitalID, Ergebnismenge objshell = CreateObject ('WScript.Shell') 'Registrierungsschlüsselpfad festlegen Pfad =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Registrierungsschlüsselwert DigitalID = objshell.RegRead (Pfad & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Produktname, ProductID, ProductKey abrufen ProductName =' Produktname: '& objshell.RegRead (Pfad &' Produktname ') ProductID =' Produkt-ID: '& objshell. RegRead (Pfad & 'ProductID') ProductKey = 'Installierter Schlüssel:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Messbox anzeigen, wenn in einer Datei gespeichert werden Wenn vbYes = MsgBox (ProductData & vblf & vblf & 'In einer Datei speichern?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') und dann ProductData End speichern, wenn 'Binär in Zeichen konvertieren Funktion ConvertToKey (Schlüssel) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Zuletzt, Schlüsselteil1, fügen Sie ein: 'Überprüfen Sie, ob das Betriebssystem Windows 8 ist. IsWin8 = (Schlüssel (66)  6) und 1 Schlüssel (66) = (Taste (66) und & HF7) oder ((isWin8 und 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 (Karten, Current + 1, 1) & KeyOutput Last = Current Loop Während 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 'Daten in einer Datei speichern Funktion Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Aktuellen Benutzernamen abrufen UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Erstellen Sie eine Textdatei auf dem Desktop 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

3. Speichern Sie den obigen Text in einer Datei mit der Erweiterung '.vbs' auf dem Desktop.
   Bonus-Tipp: Um sicherzustellen, dass Sie die Datei korrekt mit der Erweiterung '.vbs' speichern, können Sie den Namen in doppelte Anführungszeichen setzen, z. B. '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. Er funktioniert unter allen genannten Betriebssystemen einwandfrei. Credits: nononsence @ MDL .