Windows Tips & News

Kako si ogledate ključ izdelka v operacijskih sistemih Windows 10, Windows 8 in Windows 7

PRIPOROČANO: Kliknite tukaj, če želite odpraviti težave z operacijskim sistemom Windows in optimizirati delovanje sistema

Č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

  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".
    varnostno kopiranje ključa izdelka Windows Windows 10
  4. Zdaj odprite datoteko BackupWindowsKey.vbs
  5. Voila, vaš ključ izdelka je prikazan na zaslonu!
    prikaži ključ izdelka za Windows 10

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.

PRIPOROČANO: Kliknite tukaj, če želite odpraviti težave z operacijskim sistemom Windows in optimizirati delovanje sistema
Microsoft Edge je končno prejel hitre ukaze

Microsoft Edge je končno prejel hitre ukaze

Microsoft je potreboval nekaj časa, da je to uporabno funkcijo prinesel svojemu brskalniku. Hitri...

Preberi več

Chrome 103 hitreje nalaga spletna mesta zahvaljujoč novi funkciji vnaprejšnjega upodabljanja

Chrome 103 hitreje nalaga spletna mesta zahvaljujoč novi funkciji vnaprejšnjega upodabljanja

Stable Google Chrome 103 je izšel s pomembnimi spremembami hitrosti nalaganja strani. Zahvaljujoč...

Preberi več

Microsoft dela na operacijskem sistemu Windows 10 različice 22H2

Microsoft dela na operacijskem sistemu Windows 10 različice 22H2

PRIPOROČANO: Kliknite tukaj, če želite odpraviti težave z operacijskim sistemom Windows in optimi...

Preberi več