Kako si ogledate ključ izdelka v operacijskih sistemih Windows 10, Windows 8 in Windows 7
Če ste izgubili ali pozabili, kje ste shranili ključ izdelka Windows, imam rešitev za vas. Danes bomo videli, kako lahko s preprostim skriptom VBS pokažemo ključ izdelka nameščene kopije sistema Windows 10, Windows 8 ali Windows 7. To je preprosta rešitev za ekstrakcijo ključa izdelka iz operacijskega sistema, nameščenega v vašem računalniku, brez uporabe programske opreme tretjih oseb. Gremo.
Oglas
Pravzaprav sem prej objavil a podobna rešitev ki je uporabljal PowerShell. vendar se je veliko uporabnikov pritoževalo, da jim ne uspe. PowerShell morda zahteva dodatne uporabniške veščine in dodatne nastavitve za zagon nepodpisanih cmdletov.
V primerjavi s PowerShell je ta rešitev VBScript skoraj popolna. Vse kar morate storiti je, da kliknete datoteko. Za oglejte si ključ izdelka za Windows 10
- Odprite Beležnico.
- Kopirajte in prilepite naslednje besedilo v okno beležnice
Možnost Eksplicitna. Dim objshell, pot, DigitalID, rezultat. Nastavi objshell = CreateObject("WScript. Shell") 'Nastavi pot registrskega ključa Pot = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Vrednost registrskega ključa DigitalID = objshell. RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Pridobi ProductName, ProductID, ProductKey ProductName = "Ime izdelka: " & objshell. RegRead (pot & "ProductName") ProductID = "ID izdelka: " & objshell. RegRead (Path & "ProductID") ProductKey = "Nameščen ključ: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Prikaži sporočilno polje, če shranite v datoteko. Če je vbYes = MsgBox (ProductData & vblf & vblf & "Shrani v datoteko?", vbYesNo + vbQuestion, "Varnostno kopiranje informacij o ključih Windows"), potem shranite podatke o izdelku. Konec Če. 'Pretvori binarno v znake Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, vstavite 'Preveri, ali je OS Windows 8 isWin8 = (Key (66) \ 6) In 1 ključ (66) = (Ključ (66) In &HF7) Ali ((isWin8 In 2) * 4) i = 24 zemljevidov = "BCDFGHJKMPQRTVWXY2346789" Do tok= 0 j = 14 Do tok = tok * 256 Tok = Tipka (j + KeyOffset) + Trenutni ključ (j + KeyOffset) = (Trenutno \ 24) Tok = Trenutni Mod 24 j = j -1 Zanka Medtem ko j >= 0 i = i -1 Izhod ključa = Srednji (zemljevidi, tok+ 1, 1) & Zadnji izhod ključa = Trenutna zanka, medtem ko je i >= 0. Če (isWin8 = 1) Potem keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Zamenjaj (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Če je Last = 0 Potem KeyOutput = insert & KeyOutput End Če. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Sred (KeyOutput, 21, 5) Končna funkcija 'Shrani podatke v datoteko Funkcija Shrani (podatke) Dim fso, fName, txt, objshell, uporabniško ime Nastavi objshell = CreateObject("wscript.shell") 'Pridobi trenutni uporabniško ime. Uporabniško ime = objshell. ExpandEnvironmentStrings("%UserName%") 'Ustvarite besedilno datoteko na namizju. fName = "C:\Users\" & Uporabniško ime & "\Desktop\WindowsKeyInfo.txt" Nastavi fso = CreateObject("Skriptiranje. FileSystemObject") Nastavite txt = fso. Ustvari besedilno datoteko (fName) txt. Writeline Data txt. Funkcija zapiranja konca
- Zgornje besedilo shranite v datoteko s pripono ".vbs" na namizju.
Bonus namig: Če želite zagotoviti, da datoteko pravilno shranite s pripono ".vbs", lahko vnesete njeno ime v dvojnih narekovajih, na primer "BackupWindowsKey.vbs".
- Zdaj odprite datoteko BackupWindowsKey.vbs
- Voila, vaš ključ izdelka je prikazan na zaslonu!
Kliknite tukaj za prenos datoteke BackupWindowsKey.vbs
Ta trik sem preizkusil v operacijskih sistemih Windows 7, Windows 8 in Windows 10. Deluje brezhibno v vseh omenjenih operacijskih sistemih. Zasluge: nesmisel @ MDL.