Kui kaotasite või unustasite oma Windowsi tootenumbri talletamise kohta, on mul teile lahendus. Täna näeme, kuidas lihtsa VBS-i skripti abil saab meile näidata Windows 10, Windows 8 või Windows 7 installitud eksemplari tootenumbrit. See on lihtne lahendus, kui saate oma tootenumbri eraldada arvutisse installitud operatsioonisüsteemist ilma mis tahes kolmanda osapoole tarkvara kasutamine. Siin me läheme.
Reklaam
Tegelikult postitasin varem a sarnane lahendus mis kasutas PowerShelli. kuid paljud kasutajad kurtsid, et see neil ebaõnnestub. Allkirjastamata cmdlet-käskude käitamiseks võib PowerShell vajada täiendavaid kasutajaoskusi ja täiendavaid näpunäiteid.
MBB vs gpt teine kõvaketas
Võrreldes PowerShelliga on see VBScript lahendus peaaegu täiuslik. Kõik, mida peate tegema, on lihtsalt failil klõpsamine. To oma Windows 10 tootenumbrit vaadata
- Avage Notepad.
- Kopeerige ja kleepige järgmine tekst Notepadi aknasse
Võimalus selgesõnaline Dim objshell, tee, DigitalID, tulemuste komplekt objshell = CreateObject ('WScript.Shell') 'Määra registrivõtme tee Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Registrivõtme väärtus DigitalID = objshell.RegRead [Path & 'DigitalProductId'] Tühjendage toote nimi, toote ID, tootenumber, tooteandmed, hankige toote nimi, toote ID, tootenumbri tootenimi = 'toote nimi:' & objshell.RegRead (tee ja toote nimi) toote ID = 'toote ID:' ja objshell. RegRead (Path & 'ProductID') ProductKey = 'Installitud võti:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Kuva postkast, kui salvestate faili Kui vbYes = MsgBox (ProductData & vblf & vblf & 'Salvesta faili?', VbYesNo + vbQuestion, 'BackUp Windowsi võtmeteave') ja seejärel Salvesta ProductData End If 'Teisenda binaar märkideks Funktsioon ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Last, keypart1, insert 'Check if OS is Windows 8 isWin8 = (Key (66) 6) And 1 Key (66) = (Võti (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 + KeyOffset) + Praegune Klahv (j + KeyOffset) = (Praegune 24) Praegune = Praegune Mod 24 j = j -1 silmus Kui j> = 0 i = i -1 KeyOutput = Keskmine (Maps, Current + 1, 1) & KeyOutput Last = Praegune Loop Kuigi i> = 0 Kui (isWin8 = 1) Siis võtmeosa1 = Kesk (võtme väljund, 2, viimane) insert = 'N' KeyOutput = Asenda (KeyOutput, võtmeosa1, võtmeosa1 ja sisesta, 2, 1, 0) Kui Viimane = 0 Siis KeyOutput = sisesta & KeyOutput End kui ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Salvesta andmed faili Funktsioon Salvesta (Andmed) Dim fso, fName, txt, objshell, Kasutajanimi Set objshell = CreateObject (' wscript. shell ')' Hankige praegune kasutajanimi Kasutajanimi = objshell.ExpandEnvironmentStrings ('% Kasutajanimi%') 'Looge töölauale tekstifail fName =' C: Users '& Kasutajanimi &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Määra txt = fso.CreateTextFile (fName) txt.Writeline Data txt. Sule funktsioon - Salvestage ülaltoodud tekst töölaual laiendiga .vbs faili.
Boonusenipp: Veendumaks, et faili laiendiga '.vbs' õigesti salvestate, võite selle nime sisestada topelt jutumärkidesse, näiteks 'BackupWindowsKey.vbs'.
- Nüüd avage oma fail BackupWindowsKey.vbs
- Voila, teie tootenumber kuvatakse ekraanil!
Faili BackupWindowsKey.vbs allalaadimiseks klõpsake siin
Testisin seda trikki operatsioonisüsteemides Windows 7, Windows 8 ja Windows 10. See töötab laitmatult kõigis nimetatud operatsioonisüsteemides. Autorid: nononsence @ MDL .
