Če ste izgubili ali pozabili, kje ste shranili ključ izdelka za Windows, imam rešitev za vas. Danes bomo videli, kako lahko s preprostim skriptom VBS pokažemo ključ izdelka nameščene kopije operacijskega sistema Windows 10, Windows 8 ali Windows 7. To je preprosta rešitev za izvlečenje ključa izdelka iz operacijskega sistema, nameščenega v računalniku, brez z uporabo katere koli programske opreme tretjih oseb. Tu smo.
Oglas
Pravzaprav sem prej objavil podobna rešitev ki je uporabljal PowerShell. toda mnogi uporabniki so se pritoževali, da jim to ne uspe. PowerShell bo morda zahteval dodatna uporabniška znanja in dodatne popravke za zagon nepodpisanih komandnih mest.
kako priti do spotify lokalnih datotek na iphone -
V primerjavi z PowerShell je ta rešitev VBScript skoraj popolna. Vse kar morate storiti je, da samo kliknete datoteko. Za oglejte si ključ izdelka Windows 10
- Odprite Beležnico.
- Kopirajte in prilepite naslednje besedilo v okno beležnice
Možnost Izrecno Dim objshell, pot, DigitalID, Rezultat Nastavi objshell = CreateObject ('WScript.Shell') 'Nastavi pot do ključa registra =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Vrednost ključa registra DigitalID = objshell.RegRead (Pot & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' ID izdelka: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Nameščen ključ:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Prikaži sporočilo, če ga shranite v datoteko If vbYes = MsgBox (ProductData & vblf & vblf & vblf & vblf & vblf & 'Shrani v datoteko?', VbYesNo + vbQuestion, 'Varnostno kopiraj podatke o ključu Windows'), nato Save ProductData End If 'Pretvori binarno v znake Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Nazadnje, keypart1, vstavite 'Preveri, če je OS Windows 8 isWin8 = (Key (66) 6) In 1 Key (66) = (Tipka (66) In & HF7) Ali ((isWin8 In 2) * 4) i = 24 Zemljevidi = '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 Medtem ko je i> = 0 If (isWin8 = 1) Potem keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Potem KeyOutput = vstavi & KeyOutput End, če je ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Shrani podatke v datoteko Funkcija Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. lupina ')' Pridobi trenutno uporabniško ime UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Ustvari besedilno datoteko na namizju 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 - Zgornje besedilo shranite v datoteko s pripono .vbs na namizju.
Bonusni namig: če želite zagotoviti pravilno shranjevanje datoteke s pripono .vbs, lahko vtipkate njeno ime v dvojne narekovaje, na primer 'BackupWindowsKey.vbs'.
- Zdaj odprite datoteko BackupWindowsKey.vbs
- Voila, ključ izdelka je prikazan na zaslonu!
Kliknite tukaj za prenos datoteke BackupWindowsKey.vbs
Ta trik sem preizkusil v sistemih Windows 7, Windows 8 in Windows 10. V vseh omenjenih operacijskih sistemih deluje brezhibno. Zasluge: nononsence @ MDL .
