Tuoteavaimen tarkasteleminen Windows 10:ssä, Windows 8:ssa ja Windows 7:ssä

Jos kadotit tai unohdit, mihin olit tallentanut Windows-tuoteavaimesi, minulla on sinulle ratkaisu. Tänään näemme, kuinka yksinkertaista VBS-skriptiä voidaan käyttää näyttämään meille Windows 10:n, Windows 8:n tai Windows 7:n asennetun kopion tuoteavain. Se on yksinkertainen ratkaisu tuoteavaimen purkamiseen tietokoneellesi asennetusta käyttöjärjestelmästä ilman kolmannen osapuolen ohjelmistoja. Nyt sitä mennään.

Itse asiassa aiemmin postasin a samanlainen ratkaisu joka käytti PowerShellia. mutta monet käyttäjät valittivat, että se epäonnistuu heille. PowerShell saattaa vaatia lisää käyttäjätaitoja ja lisäsäätöjä allekirjoittamattomien cmdlet-komentojen suorittamiseen.

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

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

   Vaihtoehto Explicit. Himmeä objshell, polku, DigitalID, tulos. Set objshell = CreateObject("WScript. Shell") 'Aseta rekisteriavaimen polku Polku = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Rekisteriavaimen arvo DigitalID = objshell. RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Tuotteen nimi:" & objshell. RegRead (Path & "ProductName") ProductID = "Tuotteen tunnus: " & objshell. RegRead (Path & "ProductID") ProductKey = "Asennettu avain: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Näytä viestilaatikko, jos se tallennetaan tiedostoon. Jos vbYes = MsgBox (ProductData & vblf & vblf & "Tallenna tiedostoon?", vbYesNo + vbQuestion, "Varmuuskopioi Windowsin tärkeimmät tiedot"), Tallenna tuotetiedot. Loppu Jos. 'Muunna binääri merkeiksi Toiminto ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, lisää 'Tarkista, onko käyttöjärjestelmä Windows 8 isWin8 = (Avain (66) \ 6) Ja 1 avain (66) = (Avain (66) ja &HF7) Tai ((isWin8 ja 2) * 4) i = 24 karttaa = "BCDFGHJKMPQRTVWXY2346789" Do Current = 0 j = 14 Do Current = nykyinen * 256 Nykyinen = avain (j + Keyoffset) + Nykyinen avain (j + KeyOffset) = (Nykyinen \ 24) Nykyinen = Nykyinen Mod 24 j = j -1 Silmukka kun j >= 0 i = i -1 Näppäinlähtö = Keski (Kartat, Nykyinen+ 1, 1) & Näppäinlähtö viimeinen = Virtasilmukka, kun i >= 0. If (isWin8 = 1) Sitten näppäinosa1 = Keski (KeyOutput, 2, Last) insert = "N" KeyOutput = Korvaa (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Jos viimeinen = 0, sitten KeyOutput = insert & KeyOutput End If. ConvertToKey = Keski (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Mid (KeyOutput, 21, 5) Lopputoiminto 'Tallenna tiedot tiedostoon Toiminto Tallenna (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Hanki ajan tasalla käyttäjätunnus. Käyttäjänimi = objshell. ExpandEnvironmentStrings("%UserName%") 'Luo tekstitiedosto työpöydälle. fName = "C:\Käyttäjät\" & Käyttäjänimi & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Komentosarja. FileSystemObject") Aseta txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Sulje lopetustoiminto 

3. Tallenna yllä oleva teksti työpöydälle tiedostoon, jonka tunniste on ".vbs".
   Bonusvinkki: Varmistaaksesi, että tallennat tiedoston oikein ".vbs"-tunnisteella, voit kirjoittaa sen nimen lainausmerkkien sisään, esimerkiksi "BackupWindowsKey.vbs".
   
4. Avaa nyt BackupWindowsKey.vbs-tiedosto
5. Voila, tuoteavaimesi näkyy näytöllä!
   

Napsauta tätä ladataksesi BackupWindowsKey.vbs-tiedoston

Testasin tätä temppua Windows 7:ssä, Windows 8:ssa ja Windows 10:ssä. Se toimii moitteettomasti kaikissa mainituissa käyttöjärjestelmissä. Tekijät: hölynpöly @ MDL.