Jei pametėte ar pamiršote, kur saugojote „Windows“ produkto raktą, turiu jums sprendimą. Šiandien pamatysime, kaip paprastas VBS scenarijus gali būti naudojamas parodant įdiegtos „Windows 10“, „Windows 8“ arba „Windows 7“ kopijos produkto kodą. Tai yra paprastas sprendimas, norint išskleisti produkto kodą iš kompiuteryje įdiegtos OS be naudojant bet kokią trečiosios šalies programinę įrangą. Štai mes einame.
Reklama
Tiesą sakant, anksčiau aš paskelbiau panašus sprendimas kuri naudojo „PowerShell“. tačiau daugelis vartotojų skundėsi, kad jiems tai nepavyksta. „PowerShell“ gali prireikti papildomų vartotojo įgūdžių ir papildomų patobulinimų, kad būtų paleisti nepasirašyti cmdletai.
kaip kreivinti tekstą paint.net
Palyginti su „PowerShell“, šis „VBScript“ sprendimas yra beveik tobulas. Viskas, ką jums reikia padaryti, tai tiesiog spustelėkite failą. Į peržiūrėkite „Windows 10“ produkto raktą
- Atidarykite „Notepad“.
- Nukopijuokite ir įklijuokite šį tekstą į „Notepad“ langą
Parinktis „Aiškus Dim objshell“, „path“, „DigitalID“, „Result Set“ objshell = CreateObject ('WScript.Shell') 'Nustatyti registro rakto kelią Kelias =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Registro rakto vertė DigitalID = objshell.RegRead (Kelias ir „DigitalProductId“) „Dim ProductName“, „ProductID“, „ProductKey“, „ProductData“ 'Gaukite „ProductName“, „ProductID“, „ProductKey ProductName“ =' Produkto pavadinimas: '& objshell.RegRead (Kelias ir' Prekės pavadinimas ') ProductID =' Produkto ID: '& objshell. RegRead (Kelias & 'ProductID') ProductKey = 'Įdiegtas raktas:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Rodyti pašto dėžutę, jei išsaugote ją faile, jei vbYes = MsgBox (ProductData & vblf & vblf & „Išsaugoti faile?“, VbYesNo + vbQuestion, „BackUp Windows Key Information“), tada išsaugokite „ProductData End If“ “Konvertuokite dvejetainį į simbolius Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Paskutinis, keypart1, įterpkite „Patikrinkite, ar OS yra„ Windows 8 “yra„ Win8 = “(raktas (66) 6) ir 1 raktas (66) = (Raktas (66) ir & HF7) arba ((isWin8 ir 2) * 4) i = 24 žemėlapiai = 'BCDFGHJKMPQRTVWXY2346789' Ar dabartinė = 0 j = 14 Ar dabartinė = Dabartinė * 256 Dabartinė = Raktas (j + KeyOffset) + Dabartinė Raktas (j + KeyOffset) = (Dabartinis 24) Dabartinis = Dabartinis Mod 24 j = j -1 ciklas, o j> = 0 i = i -1 KeyOutput = Vidutinis (Žemėlapiai, Dabartinis + 1, 1) & KeyOutput Paskutinis = Dabartinis ciklas Nors i> = 0 If (isWin8 = 1) Tada keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Jei Paskutinis = 0 Tada KeyOutput = įterpti & KeyOutput End Jei ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Išsaugoti duomenis į failą Funkcija Išsaugoti (duomenys) Dim fso, fName, txt, objshell, Vartotojo vardas Nustatykite objshell = CreateObject (' wscript. apvalkalas ')' Gauti dabartinį vartotojo vardą UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Sukurkite teksto failą darbalaukyje fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Nustatykite fso = CreateObject (' Scripting.FileSystemObject ') Nustatykite txt = fso.CreateTextFile (fName) txt.Writeline Data txt. Uždaryti pabaigos funkciją - Išsaugokite aukščiau esantį tekstą į failą su „.vbs“ plėtiniu darbalaukyje.
Premijos patarimas: norėdami įsitikinti, kad failą tinkamai išsaugote naudodami „.vbs“ plėtinį, galite įvesti jo pavadinimą, pateikiamą kabutėse, pavyzdžiui, „BackupWindowsKey.vbs“.
- Dabar atidarykite failą BackupWindowsKey.vbs
- Voila, jūsų produkto raktas rodomas ekrane!
Spustelėkite čia, jei norite atsisiųsti failą „BackupWindowsKey.vbs“
Išbandžiau šį triuką „Windows 7“, „Windows 8“ ir „Windows 10“. Jis veikia nepriekaištingai visose paminėtose operacinėse sistemose. Kreditai: nesąmonė @ MDL .
