Tootevõtme eraldamiseks reaalajas süsteemist või võrguühenduseta arvuti registritarust on palju tööriistu. Lisaks on siin üks kena väike Vbscript, mis saab teie praeguse Windowsi installimise tootenumbri - kolmandate osapoolte programme pole vaja. Skript töötab operatsioonisüsteemides Windows 7, 8 ja Windows 10.
Vaadake Windows 10 tootenumbrit skripti abil
Kopeerige järgmine kood Notepadisse ja salvestage fail nimega GetProductKey.vbs.
Valik Selgesõnaline Dim objshell, tee, DigitalID, tulemus Määra objshell = CreateObject ("WScript.Shell") 'Määra registrivõtme tee Path = "HKLM \ TARKVARA \ Microsoft \ Windows NT \ CurrentVersion \"' Registrivõtme väärtus DigitalID = objshell.RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Hangi ProductName, ProductID, ProductKey ProductName = "Toote nimi:" & objshell.RegRead (Path & "ProductName") ProductID = "Product ID:" & objshell. RegRead (Path & "ProductID") ProductKey = "Installitud võti:" & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Kuvab rämpsposti faili salvestamise korral Kui vbYes = MsgBox (ProductData & vblf & vblf & "Salvesta faili?", VbYesNo + vbQuestion, "Varundage Windowsi võtmeteave") ja seejärel salvestage ProductData End Kui "teisendada binaarne karakteriteks Funktsioon ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput Viimaseks, keypart1, sisestage 'Kontrollige, kas OS on Windows 8 isWin8 = (Key (66) \ 6) and 1 Key (66) = (Klahv (66) ja & HF7) või ((isWin8 ja 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" tehke voolu = 0 j = 14 tehke voolu = voolu * 256 voolu = klahvi (j + KeyOffset) + praegust Klahv (j + KeyOffset) = (praegune \ 24) praegune = praegune Mod 24 j = j -1 silmus, samal ajal kui j> = 0 i = i -1 KeyOutput = keskel (kaardid, praegune + 1, 1) ja KeyOutput viimane = praegune silmus Kui i> = 0 Kui (isWin8 = 1), siis keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Asenda (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Kui Last = 0 Siis KeyOutput = insert & KeyOutput End Kui ConvertToKey = Keskmine (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid ( KeyOutput, 16, 5) & "-" & Mid (KeyOutput, 21, 5) End Function "Salvestage andmed faili Funktsioon Salvesta (andmed) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (" wscript. shell ") 'Hankige praegune kasutajanimi UserName = objshell.ExpandEnvironmentStrings ("% UserName% ")' Looge töölauale tekstifail fName =" C: \ Users \ "& UserName &" \ Desktop \ WindowsKeyInf o.txt "Set fso = CreateObject (" Scripting.FileSystemObject ") Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Sulge lõppfunktsioon Allikas: Windowsi tootenumbri allalaadimine · GitHub
Topeltklõpsake skripti käivitamiseks, et saada teada Windowsi installimise tootenumber.
