Tuoteavaimen tarkasteleminen Windows 10-, Windows 8- ja Windows 7 -käyttöjärjestelmissä

Jos kadotit tai unohdit Windows-tuoteavaimesi, minulla on ratkaisu sinulle. Tänään näemme, kuinka yksinkertaisella VBS-komentosarjalla voidaan näyttää Windows 10-, Windows 8- tai Windows 7 -asennetun kopion tuoteavain. Se on yksinkertainen ratkaisu purkaa tuoteavain tietokoneellesi asennetusta käyttöjärjestelmästä ilman minkä tahansa kolmannen osapuolen ohjelmiston käyttäminen. Nyt sitä mennään.

Mainonta

kuinka vaihtaa salasana iPhonessa

PowerShelliin verrattuna tämä VBScript-ratkaisu on melkein täydellinen. Sinun tarvitsee vain napsauttaa tiedostoa. Vastaanottaja tarkastella Windows 10 -tuoteavainta

1. Avaa Muistio.
2. Kopioi ja liitä seuraava teksti Muistio-ikkunaan

   Vaihtoehto Explicit Dim -objektiivi, polku, DigitalID, tulosjoukko objshell = CreateObject ('WScript.Shell') 'Aseta rekisteriavaimen polku Polku =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Rekisteriavaimen arvo DigitalID = objshell.RegRead (Path & 'DigitalProductId') Himmennä ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Tuotteen nimi: '& objshell.RegRead (Polku ja' Tuotteen nimi ') ProductID =' Tuotteen tunnus: '& objshell. RegRead (polku & 'ProductID') ProductKey = 'Asennettu avain:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Näytä viestiruutu, jos tiedosto tallennetaan, jos vbYes = MsgBox (ProductData & vblf & vblf & Tallennetaanko tiedostoon?, VbYesNo + vbQuestion, 'BackUp Windows Key Information') ja tallenna sitten ProductData End If 'Muunna binaari merkeiksi Toiminto ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Viimeinen, keypart1, lisää 'Tarkista onko käyttöjärjestelmä Windows 8 isWin8 = (Key (66)  6) And 1 Key (66) = (Avain (66) ja & HF7) tai ((isWin8 ja 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Näppäin (j + KeyOffset) = (Current  24) Current = Nykyinen Mod 24 j = j -1 Silmukka kun j> = 0 i = i -1 KeyOutput = Keski (Kartat, Current + 1, 1) & KeyOutput Last = Nykyinen silmukka Kun i> = 0 Jos (isWin8 = 1) Sitten avainosa1 = Keski (Avainlähtö, 2, Viimeinen) insert = 'N' KeyOutput = Korvaa (KeyOutput, avainosa1, avainosa1 ja lisäys, 2, 1, 0) Jos Viimeinen = 0 Sitten KeyOutput = lisää & KeyOutput End Jos ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Tallenna tiedot tiedostoon Toiminto Tallenna (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Hae nykyinen käyttäjänimi UserName = objshell.ExpandEnvironmentStrings ('% UserName%') '' Luo tekstitiedosto työpöydälle fName = 'C:  Users ' & UserName & ' Desktop  WindowsKeyI nfo.txt 'Aseta fso = CreateObject (' Scripting.FileSystemObject ') Aseta txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Sulje lopputoiminto

3. Tallenna yllä oleva teksti tiedostoon, jonka laajennus '.vbs' on työpöydällä.
   Bonusvinkki: Varmista, että tallennat tiedoston oikein .vbs-laajennuksella, kirjoittamalla sen nimen kaksoislainausmerkkeihin, esimerkiksi 'BackupWindowsKey.vbs'.
   
4. Avaa nyt BackupWindowsKey.vbs-tiedosto
5. Voila, tuotetunnus näkyy näytöllä!
   

Napsauta tätä ladataksesi BackupWindowsKey.vbs-tiedoston

Testasin tämän temppun Windows 7: ssä, Windows 8: ssa ja Windows 10: ssä. Se toimii moitteettomasti kaikissa mainituissa käyttöjärjestelmissä. Laajuus: epäjohdonmukaisuus @ MDL .