Tootenumbri vaatamine opsüsteemides Windows 10, Windows 8 ja Windows 7

Kui kaotasite või unustasite oma Windowsi tootenumbri salvestamise koha, on mul teile lahendus. Täna näeme, kuidas saab lihtsat VBS-skripti kasutada, et näidata meile Windows 10, Windows 8 või Windows 7 installitud koopia tootenumbrit. See on lihtne lahendus tootenumbri eraldamiseks arvutisse installitud OS-ist ilma kolmanda osapoole tarkvara kasutamata. Siin me läheme.

Tegelikult postitasin varem a sarnane lahendus mis kasutas PowerShelli. kuid paljud kasutajad kaebasid, et see nende jaoks ebaõnnestub. PowerShell võib vajada täiendavaid kasutajaoskusi ja täiendavaid näpunäiteid allkirjastamata cmdlet-käskude käitamiseks.

Võrreldes PowerShelliga on see VBScripti lahendus peaaegu täiuslik. Kõik, mida pead tegema, on lihtsalt failil klõpsata. To vaadake oma Windows 10 tootenumbrit

1. Avage Notepad.
2. Kopeerige ja kleepige järgmine tekst Notepadi aknasse

   Valik Selgesõnaline. Hämar objshell, tee, DigitalID, tulemus. Set objshell = CreateObject("WScript. Shell") 'Määrake registrivõtme tee Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" "Registrivõtme väärtus DigitalID = objshell. RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData "Hangi tootenimi, toote ID, tootevõti ProductName = "Toote nimi: " & objshell. RegRead (Path & "ProductName") ProductID = "Toote ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "Installitud võti: " & ConvertToKey (DigitalID) ProductData = Tootenimi & vbNewLine & ProductID & vbNewLine & ProductKey 'Faili salvestamisel kuvage messbox. Kui vbYes = MsgBox (ProductData & vblf & vblf & "Salvesta faili?", vbYesNo + vbQuestion, "Windowsi võtmeteave varundamine"), siis salvesta tooteandmed. Lõpeta Kui. 'Teisenda binaarkood tähemärkideks Funktsioon ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, praegune, Key Output, Last, keypart1, sisestage 'Kontrollige, kas OS on Windows 8 isWin8 = (klahv (66) \ 6) Ja 1 klahv (66) = (klahv (66) ja &HF7) või ((isWin8 ja 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Kas praegune = 0 j = 14 Kas praegune = praegune * 256 Praegune = võti (j + klahvinihe) + Praegune võti (j + klahvinihe) = (praegune \ 24) praegune = praegune modifikatsioon 24 j = j -1 silmus, samas kui j >= 0 i = i -1 klahviväljund = keskmine (kaardid, praegune+ 1, 1) ja klahviväljund viimane = Vooluahel, kui i >= 0. Kui (isWin8 = 1) Siis klahviosa1 = keskmine (KeyOutput, 2, Last) insert = "N" Key Output = Asenda (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Kui viimane = 0, siis Key Output = insert & KeyOutput End If. ConvertToKey = keskmine (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" ja kesk (KeyOutput, 21, 5) Lõppfunktsioon 'Andmete salvestamine faili Funktsioon Salvesta (andmed) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Hangi hetkeseisu kasutajanimi. Kasutajanimi = objshell. ExpandEnvironmentStrings("%UserName%") 'Looge töölaual tekstifail. fName = "C:\Kasutajad\" & Kasutajanimi & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Skriptimine. FileSystemObject") Määra txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Lõpetamisfunktsiooni sulgemine 
   

3. Salvestage ülaltoodud tekst töölaual laiendiga ".vbs" faili.
   Boonusnõuanne: veendumaks, et salvestate faili õigesti laiendiga ".vbs", võite tippida selle nime jutumärkidesse, näiteks "BackupWindowsKey.vbs".
   
4. Nüüd avage fail BackupWindowsKey.vbs
5. Voila, teie tootenumber kuvatakse ekraanil!
   

Faili BackupWindowsKey.vbs allalaadimiseks klõpsake siin

Testisin seda trikki opsüsteemides Windows 7, Windows 8 ja Windows 10. See töötab kõigis mainitud operatsioonisüsteemides laitmatult. Autorid: mõttetus @ MDL.