Hlavní Skripty A Vylepšení Jak zobrazit produktový klíč ve Windows 10, Windows 8 a Windows 7

Jak zobrazit produktový klíč ve Windows 10, Windows 8 a Windows 7

  • How View Your Product Key Windows 10

Pokud jste ztratili nebo zapomněli, kde jste uložili produktový klíč Windows, mám pro vás řešení. Dnes uvidíme, jak lze pomocí jednoduchého skriptu VBS zobrazit produktový klíč nainstalované kopie systému Windows 10, Windows 8 nebo Windows 7. Jedná se o jednoduché řešení, jak extrahovat produktový klíč z OS nainstalovaného v počítači bez pomocí jakéhokoli softwaru třetí strany. Tady jsme.

Reklama




Vlastně dříve jsem zveřejnil a podobné řešení který používal PowerShell. ale mnoho uživatelů si stěžovalo, že to pro ně selhalo. PowerShell může ke spuštění nepodepsaných rutin vyžadovat další uživatelské dovednosti a další vylepšení.



jak přeměnit dokument na jpeg

Ve srovnání s PowerShell je toto řešení VBScript téměř dokonalé. Vše, co musíte udělat, je jednoduše kliknout na soubor. Na zobrazit produktový klíč systému Windows 10

  1. Otevřete Poznámkový blok.
  2. Zkopírujte a vložte následující text do okna Poznámkový blok
    Možnost Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Set key key path Path =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Hodnota klíče registru DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installed Key:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Zobrazit messbox, pokud se uloží do souboru Pokud vbYes = MsgBox (ProductData & vblf & vblf & 'Save to a file?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') then Save ProductData End If 'Convert binary to chars Function 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) Or ((isWin8 And 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 (Maps, Current + 1, 1) & KeyOutput Last = Current Loop While 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 'Uložit data do souboru Funkce Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Získat aktuální uživatelské jméno UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Vytvořit textový soubor na ploše 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. Uložte výše uvedený text 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áložní produktový klíč Windows Windows 10
  4. Nyní otevřete soubor BackupWindowsKey.vbs
  5. Voila, váš produktový klíč se zobrazí na obrazovce!
    zobrazit produktový klíč Windows 10

Kliknutím sem stáhněte soubor BackupWindowsKey.vbs



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

Zajímavé Články

Redakce Choice

Jak nainstalovat software v Ubuntu
Jak nainstalovat software v Ubuntu
Jednou z radostí Ubuntu je, že existuje spousta bezplatného softwaru s otevřeným zdrojovým kódem, který můžete vyzkoušet, a že je vše snadno dostupné z vašeho počítače. Není třeba hledat více webů
Jak změnit barvu pozadí prohlížeče fotografií Windows
Jak změnit barvu pozadí prohlížeče fotografií Windows
Počínaje systémem Windows Vista je možné změnit barvu pozadí prohlížeče fotografií Windows z bílé na libovolnou barvu.
Jak nainstalovat YouTube Kids na Amazon Fire Stick
Jak nainstalovat YouTube Kids na Amazon Fire Stick
Pokud máte děti, víte, jak důležité je chránit je před nevhodným obsahem na internetu. I na YouTube, který je pečlivě upraven, může vaše dítě narazit na obsah, který pro něj není vhodný. Proto
Recenze Meizu MX4 Ubuntu Edition: Druhý telefon Ubuntu má mnohem vylepšený hardware
Recenze Meizu MX4 Ubuntu Edition: Druhý telefon Ubuntu má mnohem vylepšený hardware
Nebyli jsme blázni z prvního telefonu Ubuntu, když byl uveden na trh v letošním roce, ale potom, poctivě, nebylo příliš nadšení. Byl to smartphone s rozpočtem 121 GBP, který se v ruce cítil levně,
Zrcadlení obrazovky telefonu, iPadu nebo notebooku na televizi: Jak posunout telefon na velkou obrazovku
Zrcadlení obrazovky telefonu, iPadu nebo notebooku na televizi: Jak posunout telefon na velkou obrazovku
V roce 2021 má obrazovku v kapse prakticky každý, ale pokud jste v pohodlí svého domova, nechcete se omezovat na prohlížení fotografií a videí v telefonu. '
Vydán Thunderbird 78.0.1, zde jsou změny
Vydán Thunderbird 78.0.1, zde jsou změny
Tradičně po velkém vydání dostávají produkty Mozilla sekvenční aktualizaci. Nyní je k dispozici Thunderbird 78.0.1, který přináší několik oprav chyb a několik nových funkcí stabilní pobočky aplikace Thunderbird je můj preferovaný e-mailový klient dle výběru. Tuto aplikaci používám na každém počítači a na každém operačním systému, který používám. to je
Cloudové úložiště: Jak bezpečné jsou Dropbox, OneDrive, Disk Google a iCloud?
Cloudové úložiště: Jak bezpečné jsou Dropbox, OneDrive, Disk Google a iCloud?
Cloudové úložiště je budoucností informační logistiky - ale jak bezpečné jsou tyto cloudové úložiště? Pokud byste se měli nechat ovlivnit čistě bulvárními technologickými publikacemi s nadpisy křičícími o hacknutých databázích, kompromitovaných heslech a tajemství