Windows 10 -tuoteavaimen tarkasteleminen komentosarjan avulla

Tuoteavaimen purkamiseen elävästä järjestelmästä tai offline-tietokoneen rekisteritarkasta on monia työkaluja. Lisäksi tässä on siisti pieni Vbscript, joka saa nykyisen Windows-asennuksen tuoteavaimen - kolmansien osapuolien ohjelmia ei tarvita. Skripti toimii Windows 7, 8 ja Windows 10 -käyttöjärjestelmissä.

Näytä Windows 10 -tuoteavain komentosarjan avulla

Kopioi seuraava koodi Muistioon ja tallenna tiedosto nimellä GetProductKey.vbs.

 Vaihtoehto Explicit Dim objshell, polku, DigitalID, tulosjoukko objshell = CreateObject ("WScript.Shell") 'Aseta rekisteriavaimen polku Polku = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \"' Rekisteriavaimen arvo DigitalID = objshell.RegRead (Polku & "DigitalProductId") Himmennä tuotenimi, ProductID, ProductKey, ProductData 'Hanki ProductName, ProductID, ProductKey ProductName = "Tuotteen nimi:" & objshell.RegRead (Path & "ProductName") ProductID = "Tuotetunnus:" & objshell. RegRead (Polku & "ProductID") ProductKey = "Asennettu avain:" & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Näytä messbox, jos tiedosto tallennetaan. Jos vbYes = MsgBox (ProductData & vblf & vblf & "Tallennetaan tiedostoon?", VbYesNo + vbQuestion, "Varmuuskopioi Windows-avaintiedot") ja sitten Tallenna ProductData End Jos 'Muunna binaarimerkit 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) = (Näppäin (66) ja & HF7) tai ((isWin8 ja 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Tee virta = 0 j = 14 tee virta = virta * 256 virta = näppäin (j + KeyOffset) + nykyinen Näppäin (j + KeyOffset) = (Nykyinen \ 24) Nykyinen = Nykyinen Mod 24 j = j -1 Silmukka kun j> = 0 i = i -1 KeyOutput = Keski (Kartat, Nykyinen + 1, 1) & KeyOutput Viimeinen = Nykyinen silmukka Vaikka i> = 0 Jos (isWin8 = 1) Sitten keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Korvaa (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Jos Last = 0 Sitten KeyOutput = insert & 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 Tallenna (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (" wscript. shell ") 'Hanki nykyinen käyttäjänimi UserName = objshell.ExpandEnvironmentStrings ("% UserName% ")' Luo tekstitiedosto työpöydälle fName =" C: \ Users \ "& UserName &" \ Desktop \ WindowsKeyInf o.txt "Aseta fso = CreateObject (" Scripting.FileSystemObject ") Aseta txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function 

Lähde: Hae Windows-tuotetunnus · GitHub

Kaksoisnapsauta suorittaaksesi skriptin saadaksesi selville Windows-asennuksen tuoteavaimen.