Kā apskatīt produkta atslēgu operētājsistēmās Windows 10, Windows 8 un Windows 7

Ja esat pazaudējis vai aizmirsis savu Windows produkta atslēgu, man ir pieejams risinājums. Šodien mēs redzēsim, kā vienkāršu VBS skriptu var izmantot, lai parādītu produkta atslēgu instalētai Windows 10, Windows 8 vai Windows 7 kopijai. Tas ir vienkāršs risinājums produkta atslēgas izvilkšanai no datorā instalētās OS bez izmantojot jebkuru trešo personu programmatūru. Te nu mēs esam.

Reklāma

kā dokumentu pārvērst par JPEG

Salīdzinot ar PowerShell, šis VBScript risinājums ir gandrīz ideāls. Viss, kas jums jādara, ir vienkārši noklikšķināt uz faila. Uz apskatiet savu Windows 10 produkta atslēgu

1. Atveriet Notepad.
2. Nokopējiet un ielīmējiet šo tekstu Notepad logā

   Opcija Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Iestatīt reģistra atslēgas ceļu Ceļš =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Reģistra atslēgas vērtība DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (ceļš & 'ProductID') ProductKey = 'Instalētā atslēga:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Parādīt Messbox, ja saglabājat failā Ja vbYes = MsgBox (ProductData & vblf & vblf & 'Saglabāt failā?', VbYesNo + vbQuestion, 'BackUp Windows Key Information'), tad Saglabāt ProductData End If 'Konvertēt binārus uz rakstzīmēm Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Last, keypart1, insert 'Pārbaudiet, vai OS ir Windows 8 isWin8 = (atslēga (66)  6) un 1 atslēga (66) = (Key (66) And & HF7) Vai ((isWin8 And 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Key (j + KeyOffset) = (Current  24) Current = Current Mod 24 j = j -1 Loop Kaut j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop Kamēr i> = 0 Ja (isWin8 = 1), tad keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Ja Last = 0 Tad KeyOutput = ievietot & KeyOutput End, ja ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Saglabāt datus failā Funkcija Saglabāt (Dati) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. apvalks ')' Saņemt pašreizējo lietotāja vārdu UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Izveidojiet teksta failu darbvirsmā fName =' C:  Users  '& UserName &'  Desktop  WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Iestatiet txt = fso.CreateTextFile (fName) txt.Writeline Data txt. Aizvērt funkciju Funkcija

3. Saglabājiet iepriekš esošo tekstu failā ar paplašinājumu '.vbs' uz darbvirsmas.
   Bonusa padoms: lai pārliecinātos, ka fails tiek pareizi saglabāts ar paplašinājumu .vbs, varat ierakstīt tā nosaukumu, kas ievietots pēdiņās, piemēram, 'BackupWindowsKey.vbs'.
   
4. Tagad atveriet failu BackupWindowsKey.vbs
5. Voila, jūs produkta atslēga tiek parādīta ekrānā!
   

Noklikšķiniet šeit, lai lejupielādētu failu BackupWindowsKey.vbs

Es testēju šo triku operētājsistēmās Windows 7, Windows 8 un Windows 10. Tas darbojas nevainojami visās minētajās operētājsistēmās. Autori: nononsence @ MDL .