Es gibt viele Tools, um den Product Key aus einem Live-System oder aus der Registrierungsstruktur eines Offline-Computers zu extrahieren. Außerdem finden Sie hier ein hübsches kleines Vbscript, das den Product Key Ihrer aktuellen Windows-Installation erhält - kein Programm eines Drittanbieters erforderlich. Das Skript funktioniert unter Windows 7, 8 und Windows 10.

Anzeigen des Windows 10-Produktschlüssels mithilfe eines Skripts

Kopieren Sie den folgenden Code in Notepad und speichern Sie die Datei als GetProductKey.vbs.

 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 'Get ProductName, ProductID, ProductKey ProductName = "Product Name:" & objshell.RegRead (Path & "ProductName") ProductID = "Product 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 If If 'Binär in Zeichen konvertieren Funktion ConvertToKey (Key) 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 = Einfügen & KeyOutput-Ende Wenn ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid ( KeyOutput, 16, 5) & "-" & Mid (KeyOutput, 21, 5) Endfunktion 'Daten in einer Datei speichern Funktion Speichern (Daten) Dim fso, fName, txt, objshell, Benutzername 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 

Quelle: Windows-Produktschlüssel abrufen · GitHub

$config[ads_text6] not found

Doppelklicken Sie, um das Skript auszuführen und den Produktschlüssel Ihrer Windows-Installation zu ermitteln.

Produktschlüssel mit Vbscript abgerufen