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
- Otevřete Poznámkový blok.
- 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
- 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“.
- Nyní otevřete soubor BackupWindowsKey.vbs
- Voila, váš produktový klíč se zobrazí na obrazovce!
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 .