Haupt Skripte Und Optimierungen So zeigen Sie Ihren Produktschlüssel in Windows 10, Windows 8 und Windows 7 an

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


Eigentlich habe ich früher einen 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.

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'.
    Windows-Produktschlüssel sichern Windows 10
  4. Öffnen Sie nun Ihre BackupWindowsKey.vbs-Datei
  5. Voila, Ihr Produktschlüssel wird auf dem Bildschirm angezeigt!
    Windows 10-Produktschlüssel anzeigen

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 .

Interessante Artikel

Tipp Der Redaktion

Fehler bei fehlenden Apps im Windows 10 Fall Creators Update behoben
Fehler bei fehlenden Apps im Windows 10 Fall Creators Update behoben
In Windows 10 Fall Creators Update ist ein Fehler aufgetreten, durch den einige Apps aus dem Startmenü sowie aus der Liste der installierten Apps verschwinden.
Haftnotizen mit Tintenanalyse und besseren Erkenntnissen erscheinen im Microsoft Store
Haftnotizen mit Tintenanalyse und besseren Erkenntnissen erscheinen im Microsoft Store
Microsoft veröffentlicht eine neue Version der Sticky Notes-App für alle. Mit der Version 3.7, die bisher nur Insidern von Fast Ring zur Verfügung stand, führt Microsoft eine Reihe nützlicher Änderungen und neuer Funktionen in die Sticky Notes-App ein. Hier sind die wichtigsten Änderungen in dieser Version. Sticky Notes ist eine universelle Windows-Plattform (UWP)
So finden Sie Ihre Follow-Anfragen in Instagram
So finden Sie Ihre Follow-Anfragen in Instagram
Instagram ist eine sich ständig weiterentwickelnde Social-Networking-App. Es wurde für diejenigen entwickelt, die ihr Leben durch Fotos und Videos ausdrücken möchten, die direkt von einem Smartphone aufgenommen wurden. Ein visuelleres Facebook oder Twitter, wenn es darum geht
Können Sie überprüfen, wer einen Block in Minecraft platziert hat? NÖ!
Können Sie überprüfen, wer einen Block in Minecraft platziert hat? NÖ!
Friedliche Spieler betrachten Minecraft als ein Feld, um ihre Kreativität auszudrücken und Spaß mit Freunden zu haben. Es gibt jedoch auch Griefer, die ihrem Gameplay lieber etwas Dramatik hinzufügen. Griefer irritieren Menschen, indem sie ihre Konstruktionen zerstören
So laden Sie Android-Apps auf eine SD-Karte herunter
So laden Sie Android-Apps auf eine SD-Karte herunter
Viele neuere Android-Telefone verfügen über einen SD-Kartensteckplatz, der den eingebauten Speicher erheblich erweitert. Wenn der interne Speicher für Ihre Anforderungen nicht ausreicht, ist dieses Zubehör ein wesentlicher Aspekt Ihres Telefons. Auch wenn ein Smartphone
Microsoft wird die Veröffentlichung von Windows 10-Updates im Dezember 2020 verlangsamen
Microsoft wird die Veröffentlichung von Windows 10-Updates im Dezember 2020 verlangsamen
Microsoft gab bekannt, dass es im Dezember keine Update-Vorschau veröffentlichen wird, da das Unternehmen seine Aktivitäten zum Jahresende reduziert. Der Grund ist Urlaub und das bevorstehende westliche Neujahr. Das Unternehmen erklärt WICHTIG Aufgrund der minimalen Betriebsabläufe in den Ferien und des bevorstehenden westlichen Neujahrs wird es keine Vorschau geben
So ändern Sie Ihren Standort in Instacart
So ändern Sie Ihren Standort in Instacart
Instacart ist ein erstaunliches und relativ neues Juwel der modernen Technologie. Es ist ein On-Demand-Lieferservice, der Lebensmittel zu einem angemessenen Servicepreis zu Ihnen nach Hause bringt. Wenn Sie ein Kunde sind, müssen Sie nur eine machen