Windows Tips & News

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

DOPORUČUJEME: Kliknutím sem opravíte problémy se systémem Windows a optimalizujete výkon systému

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.

reklama


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“.
    zálohování produktového klíče windows 10
  4. Nyní otevřete svůj soubor BackupWindowsKey.vbs
  5. Voila, váš produktový klíč se zobrazí na obrazovce!
    zobrazit produktový klíč Windows 10

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.

DOPORUČUJEME: Kliknutím sem opravíte problémy se systémem Windows a optimalizujete výkon systému
Jak resetovat ikony přetečení rohu hlavního panelu v systému Windows 11

Jak resetovat ikony přetečení rohu hlavního panelu v systému Windows 11

Ikony přetečení rohu hlavního panelu (oznamovací oblast nebo ikony na hlavním panelu) můžete ve W...

Přečtěte si více

Windows 10 Build 17763.292 dosáhl stabilní větve

Windows 10 Build 17763.292 dosáhl stabilní větve

Zanechte odpověďMicrosoft konečně vydal KB4476976 do produkčního proudu operačního systému. KB447...

Přečtěte si více

Vyšla Opera 52, zde je co je nového

Vyšla Opera 52, zde je co je nového

DOPORUČUJEME: Kliknutím sem opravíte problémy se systémem Windows a optimalizujete výkon systémuT...

Přečtěte si více