Jak zobrazit kód Product Key ve Windows 10, Windows 8 a Windows 7

Pokud jste ztratili nebo zapomněli, kde jste měli uložený kód Product Key Windows, mám pro vás řešení. Dnes uvidíme, jak lze jednoduchý skript VBS použít k zobrazení kódu Product Key nainstalované kopie Windows 10, Windows 8 nebo Windows 7. Je to jednoduché řešení pro extrahování kódu Product Key z operačního systému nainstalovaného na vašem PC bez použití jakéhokoli softwaru třetí strany. Tady jsme.

Ve skutečnosti jsem dříve zveřejnil a podobné řešení který používal PowerShell. ale mnoho uživatelů si stěžovalo, že jim to selhává. PowerShell může ke spouštění nepodepsaných rutin vyžadovat další uživatelské dovednosti a další vylepšení.

Ve srovnání s PowerShell je toto řešení VBScript téměř dokonalé. Vše, co musíte udělat, je kliknout na soubor. Na zobrazit kód Product Key systému Windows 10

1. Otevřete Poznámkový blok.
2. Zkopírujte a vložte následující text do okna programu Poznámkový blok

   Možnost Explicitní. Dim objshell, cesta, DigitalID, Výsledek. Set objshell = CreateObject("WScript. Shell") 'Nastavit cestu klíče registru Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Hodnota klíče registru DigitalID = objshell. RegRead (cesta & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Získat ProductName, ProductID, ProductKey ProductName = "Název produktu: " & objshell. RegRead (cesta & "ProductName") ProductID = "ID produktu: " & objshell. RegRead (cesta & "ProductID") ProductKey = "Install Key: " & ConvertToKey (DigitalID) ProductData = Název_produktu & vbNewLine & ProductID & vbNewLine & ProductKey 'Zobrazit okno při uložení do souboru. Pokud vbYes = MsgBox (ProductData & vblf & vblf & "Uložit do souboru?", vbYesNo + vbQuestion, "Zálohovat informace o klíči Windows"), uložte ProductData. End If. 'Převést binární na znaky Funkce ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'Check, if OS is Windows 8 isWin8 = (Key (66) \ 6) And 1 Key (66) = (Key (66) And &HF7) Nebo ((isWin8 And 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current * 256 Aktuální = Klíč (j + KeyOffset) + Aktuální klíč (j + KeyOffset) = (Aktuální \ 24) Aktuální = Aktuální mod 24 j = j -1 smyčka Zatímco j >= 0 i = i -1 KeyOutput = Mid (mapy, proud+ 1, 1) & KeyOutput Last = Aktuální smyčka, zatímco i >= 0. If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Nahradit (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 'Uložit data do souboru Funkce Uložit (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Získat aktuální uživatelské jméno. Uživatelské jméno = objshell. ExpandEnvironmentStrings("%UserName%") 'Vytvořte textový soubor na ploše. fName = "C:\Users\" & Uživatelské jméno & "\Desktop\WindowsKeyInfo.txt" Nastavit fso = CreateObject("Skriptování. FileSystemObject") Nastavte txt = fso. CreateTextFile (fName) txt. Zápis dat do txt. Close End Function 
   

3. Uložte text výše do souboru s příponou „.vbs“ na ploše.
   Bonusový tip: Abyste se ujistili, že soubor ukládáte správně s příponou „.vbs“, můžete zadat jeho název uzavřený do uvozovek, například „BackupWindowsKey.vbs“.
   
4. Nyní otevřete svůj soubor BackupWindowsKey.vbs
5. Voila, váš produktový klíč se zobrazí na obrazovce!
   

Kliknutím sem stáhnete soubor BackupWindowsKey.vbs

Tento trik jsem testoval na Windows 7, Windows 8 a Windows 10. Funguje bezchybně ve všech zmíněných operačních systémech. Kredity: nesmysl @ MDL.