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.

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

1. Odprite Beležnico.
2. 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 
   

3. 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".
   
4. Zdaj odprite datoteko BackupWindowsKey.vbs
5. 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.