Põhiline Skriptid Ja Näpunäited Tootenumbri kuvamine operatsioonisüsteemides Windows 10, Windows 8 ja Windows 7

Tootenumbri kuvamine operatsioonisüsteemides Windows 10, Windows 8 ja Windows 7

  • How View Your Product Key Windows 10

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

  1. Avage Notepad.
  2. 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
  3. 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'.
    varundusakende tootenumber Windows 10
  4. Nüüd avage oma fail BackupWindowsKey.vbs
  5. Voila, teie tootenumber kuvatakse ekraanil!
    kuva Windows 10 tootenumber

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 .

Huvitavad Artiklid

Toimetaja Valik

Google Photos saab SIIN teisendada JPG-ks?
Google Photos saab SIIN teisendada JPG-ks?
Google Photos toetab kõiki seadmeid, sealhulgas Androidi ja iPhone'i. Kui teil on iPhone, teate, et HEIC on kõigi salvestatud fotode põhivorming. Kuna seda vormingut kasutavad ainult Apple'i seadmed, ei saa te seda teha
Hankige Windows Vieweris Photo Vieweri kontekstimenüü üksus Eelvaade
Hankige Windows Vieweris Photo Vieweri kontekstimenüü üksus Eelvaade
Lisage kontekstimenüü üksus „Eelvaade“, et saaksite Windows 10-s Windows Photo Vieweris kiiresti avada mis tahes pildi.
Windowsi liivakast tutvustab Windows 10-s lihtsaid konfiguratsioonifaile
Windowsi liivakast tutvustab Windows 10-s lihtsaid konfiguratsioonifaile
Windowsi liivakast on eraldatud, ajutine töölauakeskkond, kus saate usaldamatut tarkvara käivitada, kartmata oma arvutile püsivat mõju. Windowsi liivakastil on nüüd lihtsate konfiguratsioonifailide (.wsb faililaiend) tugi, mis pakub minimaalset skripti tuge. Seda funktsiooni saate kasutada uusimas Windows Insideri versioonis 18342. Kõik Windowsi liivakasti installitud tarkvara jäävad ainult liivakasti ega mõjuta teie
Lubage Firefoxis topeltklõpsuga vahelehtede sulgemine
Lubage Firefoxis topeltklõpsuga vahelehtede sulgemine
Alates Firefox 61-st on uus lipp umbes: config, mis võimaldab aktiveerida vahekaardi sulgemise võimaluse topeltklõpsuga. Siit saate teada, kuidas seda saab teha.
Kuidas video suurust muuta
Kuidas video suurust muuta
https://www.youtube.com/watch?v=NCc-0h8Tdj8 Video saatmine sõbrale võib olla keeruline, kui see on kõigi standardsete sotsiaalplatvormide ja e-posti teenuste jaoks liiga suur. Kui te ei soovi sellega tegeleda
Roxio Easy MediaCreator 7.5 ülehelikiiruse ülevaade
Roxio Easy MediaCreator 7.5 ülehelikiiruse ülevaade
Roxio Easy Media Creatoril on pikk ja ruuduline ajalugu. Juba ammu, teisel aastatuhandel, oli see Adapteci Easy CD Creator. Kuid nagu enamik CD-plaate kirjutavaid rakendusi, on see sellest ajast alates peaaegu tundmatu. See ülehelikiirusega versioon
Microsoft on välja andnud PowerToys 0.20 koos uue värvivalija tööriistaga
Microsoft on välja andnud PowerToys 0.20 koos uue värvivalija tööriistaga
Nagu te võib-olla mäletate, kavatses Microsoft Windows PowerToysi lisada uue värvivalija tööriista. See juhtus täna koos PowerToysi 0.20 väljaandmisega. PowerToys on komplekt pisikesi käepäraseid utiliite, mis võeti esmakordselt kasutusele Windows 95-s. Tõenäoliselt meenutab enamik kasutajaid TweakUI ja QuickRes, mis olid tõeliselt kasulikud. Viimane