Jak zobrazit produktový klíč systému Windows 10 pomocí skriptu nebo příkazového řádku - Winhelponline

How View Your Windows 10 Product Key Using Script

Existuje mnoho nástrojů rozbalte produktový klíč ze živého systému nebo z podregistru registru offline počítače. Dále je zde úhledný malý Vbscript, který získá produktový klíč vaší aktuální instalace systému Windows - není vyžadován žádný program jiného výrobce. Skript funguje na Windows 7, 8 a Windows 10.



Zobrazit produktový klíč Windows 10

Metoda 1: Použití příkazového řádku WMI nebo prostředí PowerShell

Pomocí následujícího příkazového řádku WMI opravte produktový klíč instalace systému Windows.

wmic path softwarelicensingservice získat OA3xOriginalProductKey

Tato metoda načte aktivační klíč uložený v UEFI / BIOS vašeho počítače.



Výše uvedený příkaz budete muset spustit z zvýšený / admin Příkazový řádek okno.

wmic path softwarelicensingservice získat OA3xOriginalProductKey



Nebo pokud používáte PowerShell, spusťte tento příkaz z okna správce PowerShell, abyste poznali produktový klíč:

(Get-WmiObject -query 'select * from SoftwareLicensingService'). OA3xOriginalProductKey

V některých systémech by výše uvedené příkazy vysílaly titulek OA3xOriginalProductKey a prázdné řádky pod nimi, nezobrazující žádný produktový klíč. K tomu dochází, pokud zařízení nemá vložený aktivační / produktový klíč.

Pokud má zařízení aktivační klíč zabudovaný do firmwaru, zobrazí se na výstupu. Pokud je výstup prázdný, zařízení nemá vložený aktivační klíč s firmwarem. Většina zařízení poskytovaných výrobcem OEM určených pro běh systému Windows 8 nebo novějšího bude mít klíč zabudovaný do firmwaru.

Metoda 2: Použití skriptu

Důležité: Všimněte si, že následující metoda jednoduše dekóduje DigitalProductId hodnota registru pro získání maloobchodního produktového klíče. Klíč získaný pomocí této metody může být buď automaticky generovaný obecný klíč Windows 10 (pro systémy upgradované z Windows 7 nebo 8 na základě digitálního oprávnění). Může to být také klíč edice maloobchodu (pokud jste si zakoupili licenci dříve), který jste zadali ručně během instalace systému Windows 10. Pokud tedy používáte Windows 10, je vhodné dát přednost první metodě.

Zkopírujte následující kód do poznámkového bloku a uložte soubor jako GetProductKey.vbs.

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

Zdroj: Načíst produktový klíč Windows · GitHub

Poklepáním spusťte skript a vyhledejte produktový klíč instalace systému Windows.

vbscript zobrazit produktový klíč Windows 10

Produktový klíč získaný pomocí Vbscript

A je to!


Jedna malá žádost: Pokud se vám tento příspěvek líbil, sdílejte ho prosím?

Jedno „malé“ sdílení od vás by vážně hodně pomohlo s růstem tohoto blogu. Několik skvělých návrhů:
  • Připnout!
  • Sdílejte to na svém oblíbeném blogu + Facebook, Reddit
  • Tweetujte to!
Takže vám moc děkuji za podporu, můj čtenáři. Nebude to trvat déle než 10 sekund vašeho času. Tlačítka pro sdílení jsou vpravo dole. :)