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

Ja esat pazaudējis vai aizmirsis, kur saglabājāt savu Windows produkta atslēgu, man ir jums risinājums. Šodien mēs redzēsim, kā vienkāršu VBS skriptu var izmantot, lai parādītu mums instalētās Windows 10, Windows 8 vai Windows 7 kopijas produkta atslēgu. Tas ir vienkāršs risinājums, lai izvilktu produkta atslēgu no datorā instalētās operētājsistēmas, neizmantojot trešās puses programmatūru. Te nu mēs esam.

Patiesībā agrāk es ievietoju a 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ītas cmdlet, PowerShell var prasīt papildu lietotāja prasmes un papildu pielāgojumus.

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

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

   Izteikta opcija. Blāvs objshell, ceļš, DigitalID, rezultāts. Iestatīt objshell = CreateObject("WScript. Shell") 'Iestatīt reģistra atslēgas ceļu Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" "Reģistra atslēgas vērtība DigitalID = objshell. RegRead (ceļš un "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Produkta nosaukums:" & objshell. RegRead (ceļš un "ProductName") ProductID = "Produkta ID: " & objshell. RegRead (Ceļš un "ProductID") ProductKey = "Instalētā atslēga: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey "Rādīt ziņojumapmaiņu, ja tiek saglabāts failā. Ja vbYes = MsgBox (ProductData & vblf & vblf & "Saglabāt failā?", vbYesNo + vbQuestion, "Backup Windows Key Information"), tad saglabājiet ProductData. Beigas Ja. "Konvertēt bināros par rakstzīmēm Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, Key Output, Last, keypart1, ievietojiet "Pārbaudiet, vai OS ir Windows 8 isWin8 = (atslēga (66) \ 6) Un 1 taustiņš (66) = (Taustiņš (66) Un &HF7) Vai ((isWin8 Un 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Do Current = 0 j = 14 Do Current = pašreizējā * 256 Pašreizējais = atslēga (j + Key Offset) + Pašreizējā atslēga (j + Atslēgas nobīde) = (Pašreizējais \ 24) Pašreizējais = Pašreizējais mod. 24 j = j -1 cilpa, kamēr j >= 0 i = i -1 Taustiņu izvade = vidēja (kartes, pašreizējā+ 1, 1) un atslēgas izvade pēdējā = Strāvas cilpa, kamēr i >= 0. Ja (isWin8 = 1) Tad keypart1 = vidēja (Key Output, 2, Last) insert = "N" Key Output = Aizstāt (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Ja Pēdējā = 0, tad Key Output = ievietot & KeyOutput End Ja. ConvertToKey = vidus (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Vid (KeyOutput, 21, 5) Beigu funkcija 'Saglabāt datus failā Funkcija Saglabāt (Dati) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Saņemt pašreizējo lietotājvārds. Lietotājvārds = objshell. ExpandEnvironmentStrings("%UserName%") 'Izveidojiet teksta failu darbvirsmā. fName = "C:\Lietotāji\" & Lietotājvārds & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Skriptēšana. FileSystemObject") Iestatiet txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Aizvērt beigu funkciju 
   

3. Saglabājiet iepriekš minēto tekstu failā ar paplašinājumu ".vbs" darbvirsmā.
   Papildu padoms: lai pārliecinātos, ka fails ir pareizi saglabāts ar paplašinājumu ".vbs", varat ierakstīt tā nosaukumu dubultpēdiņās, piemēram, "BackupWindowsKey.vbs".
   
4. Tagad atveriet failu BackupWindowsKey.vbs
5. Voila, jūsu produkta atslēga tiek parādīta ekrānā!
   

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

Es pārbaudī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. Kredīti: muļķības @ MDL.