Ako zobraziť kód Product Key v systéme Windows 10, Windows 8 a Windows 7

Ak ste stratili alebo zabudli, kde ste mali uložený kód Product Key systému Windows, mám pre vás riešenie. Dnes uvidíme, ako sa dá použiť jednoduchý skript VBS na zobrazenie kódu Product Key nainštalovanej kópie systému Windows 10, Windows 8 alebo Windows 7. Je to jednoduché riešenie na extrahovanie kódu Product Key z operačného systému nainštalovaného na vašom PC bez použitia akéhokoľvek softvéru tretej strany. Ideme na to.

V skutočnosti som predtým uverejnil a podobné riešenie ktorý používal PowerShell. ale mnohí používatelia sa sťažovali, že im to nefunguje. PowerShell môže vyžadovať ďalšie používateľské zručnosti a ďalšie vylepšenia na spustenie nepodpísaných cmdletov.

V porovnaní s PowerShell je toto riešenie VBScript takmer dokonalé. Všetko, čo musíte urobiť, je kliknúť na súbor. Komu zobraziť kód Product Key systému Windows 10

1. Otvorte Poznámkový blok.
2. Skopírujte a prilepte nasledujúci text do okna programu Poznámkový blok

   Možnosť Explicitná. Dim objshell, path, DigitalID, Result. Set objshell = CreateObject("WScript. Shell") 'Nastaviť cestu kľúča databázy Registry Cesta = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Hodnota kľúča databázy Registry DigitalID = objshell. RegRead (cesta & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Získať ProductName, ProductID, ProductKey ProductName = "Názov produktu: " & objshell. RegRead (cesta & "ProductName") ProductID = "ID produktu: " & objshell. RegRead (cesta & "ProductID") ProductKey = "Inštalovaný kľúč: " & ConvertToKey (DigitalID) ProductData = Názov produktu & vbNewLine & ProductID & vbNewLine & ProductKey 'Zobraziť správu pri ukladaní do súboru. Ak vbYes = MsgBox (ProductData & vblf & vblf & "Uložiť do súboru?", vbYesNo + vbQuestion, "Zálohovať informácie o kľúči Windows"), potom Uložte ProductData. Koniec Ak. 'Previesť binárne znaky na znaky Funkcia ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, vložte 'Skontrolujte, či je OS Windows 8 isWin8 = (Kľúč (66) \ 6) a 1 kľúč (66) = (kľúč (66) a &HF7) Alebo ((isWin8 a 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Aktuálne * 256 prúd = kľúč (j + posun kľúča) + Aktuálny kľúč (j + KeyOffset) = (Aktuálny \ 24) Prúd=Aktuálny mod 24 j = j -1 slučka Zatiaľ čo j >= 0 i = i -1 KeyOutput = Stred (mapy, prúd+ 1, 1) & KeyOutput Last = Aktuálna slučka, zatiaľ čo i >= 0. If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Nahradiť (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insert & KeyOutput End If. ConvertToKey = stred (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Stred (KeyOutput, 21, 5) End Function 'Uloženie údajov do súboru Funkcia Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Získať aktuálne užívateľské meno. Používateľské meno = objshell. ExpandEnvironmentStrings("%UserName%") 'Vytvorte textový súbor na pracovnej ploche. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" Nastaviť fso = CreateObject("Skriptovanie. FileSystemObject") Nastavte txt = fso. CreateTextFile (fName) txt. txt s údajmi o riadku. Funkcia zatvorenia konca 

3. Uložte text vyššie do súboru s príponou „.vbs“ na pracovnej ploche.
   Bonusový tip: Aby ste sa uistili, že súbor ukladáte správne s príponou „.vbs“, môžete zadať jeho názov v úvodzovkách, napríklad „BackupWindowsKey.vbs“.
   
4. Teraz otvorte svoj súbor BackupWindowsKey.vbs
5. Voilá, váš produktový kľúč sa zobrazí na obrazovke!
   

Kliknutím sem stiahnete súbor BackupWindowsKey.vbs

Tento trik som testoval na Windows 7, Windows 8 a Windows 10. Vo všetkých spomínaných operačných systémoch funguje bezchybne. Kredity: nezmysel @ MDL.