Ak ste stratili alebo zabudli, kde ste uložili produktový kľúč systému Windows, mám pre vás riešenie. Dnes uvidíme, ako sa dá pomocou jednoduchého skriptu VBS zobraziť produktový kľúč nainštalovanej kópie systému Windows 10, Windows 8 alebo Windows 7. Je to jednoduché riešenie na extrahovanie produktového kľúča z operačného systému nainštalovaného na vašom počítači bez pomocou ľubovoľného softvéru tretej strany. Ideme na to.
Inzerát
V skutočnosti som skôr zverejnil a podobné riešenie ktorý používal PowerShell. ale veľa používateľov sa sťažovalo, že pre nich zlyháva. PowerShell môže vyžadovať ďalšie používateľské zručnosti a ďalšie vylepšenia na spustenie nepodpísaných rutín cmdlet.
prečo sa môj macbook nezapol
V porovnaní s PowerShell je toto riešenie VBScript takmer dokonalé. Všetko, čo musíte urobiť, je jednoducho kliknúť na súbor. To zobraziť produktový kľúč systému Windows 10
- Otvorte Poznámkový blok.
- Skopírujte a vložte nasledujúci text do okna programu Poznámkový blok
Možnosť Explicit Dim dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Set path key registry Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Hodnota kľúča registra DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Názov produktu: '& objshell.RegRead (Cesta &' ProductName ') ProductID =' ID produktu: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installed Key:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Zobraziť messbox, ak sa uloží do súboru Ak vbYes = MsgBox (ProductData & vblf & vblf & „Uložiť do súboru?“, VbYesNo + vbQuestion, „BackUp Windows Key Information“) a potom uložiť údaje o produkte Data If „Convert binary to chars Function ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Posledná, keypart1, vložiť 'Skontrolovať, či je OS Windows 8 isWin8 = (Key (66) 6) A 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ženie údajov do súboru Funkcia Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Získať aktuálne meno používateľa UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Vytvoriť textový súbor na ploche 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 vyššie uvedený text do súboru s príponou „.vbs“ na pracovnej ploche.
Bonusový tip: Aby ste sa ubezpečili, že ste súbor správne uložili s príponou „.vbs“, môžete napísať jeho názov uvedený v úvodzovkách, napríklad „BackupWindowsKey.vbs“.
- Teraz otvorte súbor BackupWindowsKey.vbs
- Voila, 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. Bezchybne funguje vo všetkých spomenutých operačných systémoch. Kredity: nononsence @ MDL .