Kaip peržiūrėti produkto kodą „Windows 10“, „Windows 8“ ir „Windows 7“.

Jei pametėte arba pamiršote, kur išsaugojote „Windows“ produkto kodą, turiu jums sprendimą. Šiandien pamatysime, kaip paprastas VBS scenarijus gali būti naudojamas norint parodyti įdiegtos „Windows 10“, „Windows 8“ arba „Windows 7“ kopijos produkto kodą. Tai paprastas sprendimas išgauti produkto kodą iš jūsų kompiuteryje įdiegtos OS nenaudojant jokios trečiosios šalies programinės įrangos. Štai mes einame.

Tiesą sakant, anksčiau aš paskelbiau a 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ų paleistos nepasirašytos cmdlet.

Palyginti su PowerShell, šis VBScript sprendimas yra beveik tobulas. Viskas, ką jums reikia padaryti, tai tiesiog spustelėti failą. Į peržiūrėti „Windows 10“ produkto kodą

1. Atidarykite Notepad.
2. Nukopijuokite ir įklijuokite šį tekstą į užrašų knygelės langą

   Parinktis Aiški. Neryškus objshell, kelias, DigitalID, rezultatas. Nustatyti objshell = CreateObject("WScript. Shell") 'Nustatyti registro rakto kelią Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registro rakto reikšmė DigitalID = objshell. RegRead (Kelias ir „Skaitmeninis produkto ID“) Neryškus Produkto pavadinimas, Produkto ID, Produkto raktas, Produkto duomenys 'Gauti produkto pavadinimą, produkto ID, produkto raktą ProductName = "Produkto pavadinimas: " & objshell. RegRead (Path & "ProductName") ProductID = "Produkto ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "Įdiegtas raktas: " & ConvertToKey (Skaitmeninis ID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Rodyti pranešimų dėžutę, jei išsaugoma faile. Jei vbYes = MsgBox (ProductData & vblf & vblf & "Išsaugoti į failą?", vbYesNo + vbQuestion, "Atsarginė Windows pagrindinė informacija"), tada Įrašykite ProductData. Pabaiga, jei. 'Konvertuoti dvejetainį į simbolius Funkcija ConvertToKey (raktas) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, Key Output, Last, keypart1, įterpkite 'Patikrinkite, ar OS yra Windows 8 isWin8 = (raktas (66) \ 6) Ir 1 klavišas (66) = (klavišas (66) ir &HF7) arba ((isWin8 ir 2) * 4) i = 24 žemėlapiai = "BCDFGHJKMPQRTVWXY2346789" Do Current = 0 j = 14 Ar dabartinis = dabartinis * 256 Dabartinis = raktas (j + Key Offset) + Dabartinis raktas (j + Key Offset) = (Dabartinis \ 24) Dabartinis = Dabartinis Mod. 24 j = j -1 Ciklas, Nors j >= 0 i = i -1 Key Output = Vidutinis (Žemėlapiai, Dabartinis+ 1, 1) & Key Output Paskutinė = Srovės kilpa, kai i >= 0. If (isWin8 = 1) Tada keypart1 = Vidurinė (KeyOutput, 2, Last) insert = "N" Key Output = Pakeisti (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Tada Key Output = įterpti & KeyOutput End If. ConvertToKey = Vidurio (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Vid (KeyOutput, 21, 5) Pabaigos funkcija 'Išsaugoti duomenis į failą Funkcija Išsaugoti (duomenys) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Gaukite aktualumą Vartotojo vardas. Vartotojo vardas = objshell. ExpandEnvironmentStrings("%UserName%") 'Sukurkite tekstinį failą darbalaukyje. fName = "C:\Users\" & Vartotojo vardas & "\Desktop\WindowsKeyInfo.txt" Nustatyti fso = CreateObject("Scenarijų. FileSystemObject") Nustatyti txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Uždaryti pabaigos funkciją 

3. Išsaugokite aukščiau esantį tekstą faile su plėtiniu ".vbs" darbalaukyje.
   Papildomas patarimas: norėdami įsitikinti, kad failą įrašėte teisingai naudodami plėtinį „.vbs“, galite įvesti jo pavadinimą dvigubose kabutėse, pavyzdžiui, „BackupWindowsKey.vbs“.
   
4. Dabar atidarykite failą BackupWindowsKey.vbs
5. Voila, jūsų produkto kodas rodomas ekrane!
   

Spustelėkite čia norėdami atsisiųsti BackupWindowsKey.vbs failą

Išbandžiau šį triuką „Windows 7“, „Windows 8“ ir „Windows 10“. Jis veikia nepriekaištingai visose minėtose operacinėse sistemose. Kreditai: nesąmonė @ MDL.