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
Patiesībā, agrāk es ievietoju līdzīgs risinājums kas izmantoja PowerShell. taču daudzi lietotāji sūdzējās, ka viņiem tas neizdodas. Lai palaistu neparakstītus cmdlet, PowerShell var būt nepieciešamas papildu lietotāja prasmes un papildu pielāgojumi.
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
- Atveriet Notepad.
- 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
- 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'.
- Tagad atveriet failu BackupWindowsKey.vbs
- 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 .