Pagrindinis Scenarijai Ir Patobulinimai Kaip peržiūrėti produkto kodą sistemose „Windows 10“, „Windows 8“ ir „Windows 7“

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



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ą



  1. Atidarykite „Notepad“.
  2. 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ą
  3. 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“.
    „Windows“ atsarginės kopijos produkto raktas
  4. Dabar atidarykite failą BackupWindowsKey.vbs
  5. Voila, jūsų produkto raktas rodomas ekrane!
    rodyti „Windows 10“ produkto raktą

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 .

Įdomios Straipsniai

Redaktoriaus Pasirinkimas

Kaip parodyti dabartinę datą „Mac OS X“ meniu juostoje
Kaip parodyti dabartinę datą „Mac OS X“ meniu juostoje
Pagal numatytuosius nustatymus OS X meniu juostoje rodo tik savaitės dieną ir esamą laiką. Štai kaip pamatyti visą datą meniu juostoje, kartu su keliais patarimais, kaip lengvai nurodyti dabartinę datą „Mac“.
Kaip žaisti Ahri „League of Legends“
Kaip žaisti Ahri „League of Legends“
Ahri yra vienas linksmiausių „League of Legends“ čempionų. Dėl daugelio priežasčių ji yra populiari vidutinio kelio juostos rinkėja. Ji turi puikų mobilumą, sprogimą ir minios kontrolę, todėl ji tampa košmaru daugeliui kitų
Kaip eksportuoti žymes iš „Chrome“
Kaip eksportuoti žymes iš „Chrome“
Turėdami tiek daug svetainių, kuriose žmonės lankosi kasdien, yra tikimybė, kad rasite tokių, kurias verta taupyti. Žinoma, išlaikyti daugybę žymių nėra problema šiuolaikinėms naršyklėms. Bet kas nutinka su žymėmis
Blokuokite potencialiai nepageidaujamas atsisiuntimo programas „Microsoft Edge“
Blokuokite potencialiai nepageidaujamas atsisiuntimo programas „Microsoft Edge“
Kaip užblokuoti potencialiai nepageidaujamas programas atsisiųsti iš „Microsoft Edge“. „Microsoft Edge Chromium“ tapo prieinama nauja funkcija, kad ji galėtų patikrinti failus
Kaip įdiegti „Google Play“ parduotuvę „Amazon Fire“ planšetiniame kompiuteryje
Kaip įdiegti „Google Play“ parduotuvę „Amazon Fire“ planšetiniame kompiuteryje
https://www.youtube.com/watch?v=vveUao3KpB4 „Amazon“ planšetiniai kompiuteriai biudžeto diapazone rado saldžią vietą, sekdami kitų populiarių planšetinių kompiuterių, tokių kaip „Google Nexus 7“, pėdomis. Kaina svyruoja tik nuo 50 USD iki USD
Kaip peržiūrėti žaidimo valandas PS5
Kaip peržiūrėti žaidimo valandas PS5
Šiais laikais daugelis vaizdo žaidimų pultų stebės, kiek valandų žaidėte kiekviename savo žaidime. Kaip naujausios kartos konsolių dalis, PS5 taip pat fiksuos, kiek laiko praleidote žaidimams.
FIFA 18 gegužę gauna nemokamą pasaulio taurės režimą
FIFA 18 gegužę gauna nemokamą pasaulio taurės režimą
Ar jau laukiate FIFA 19? Na, nutrauk! FIFA 18 dar yra gyvenimas. Prieš 2018 m. Rusijoje vykstančią pasaulio taurę EA paskelbė, kad FIFA 18 gaus naujieną apie monstrą