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
Itse asiassa aiemmin lähetin vastaava ratkaisu joka käytti PowerShelliä. mutta monet käyttäjät valittivat, että se epäonnistuu heille. PowerShell saattaa tarvita ylimääräisiä käyttäjätaitoja ja ylimääräisiä säätöjä allekirjoittamattomien cmdlet-komentojen suorittamiseen.
kuinka vaihtaa salasana iPhonessa
PowerShelliin verrattuna tämä VBScript-ratkaisu on melkein täydellinen. Sinun tarvitsee vain napsauttaa tiedostoa. Vastaanottaja tarkastella Windows 10 -tuoteavainta
- Avaa Muistio.
- 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
- 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'.
- Avaa nyt BackupWindowsKey.vbs-tiedosto
- 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 .