Kako vidjeti ključ proizvoda u sustavima Windows 10, Windows 8 i Windows 7

Ako ste izgubili ili zaboravili gdje ste pohranili svoj Windows ključ proizvoda, imam rješenje za vas. Danas ćemo vidjeti kako se jednostavna VBS skripta može koristiti da nam pokaže ključ proizvoda instalirane kopije sustava Windows 10, Windows 8 ili Windows 7. To je jednostavno rješenje za ekstrahiranje ključa proizvoda iz OS instaliranog na vašem računalu bez korištenja softvera treće strane. Idemo.

Zapravo, ranije sam objavio a slično rješenje koji je koristio PowerShell. ali mnogi su se korisnici žalili da im to ne uspijeva. PowerShell može zahtijevati dodatne korisničke vještine i dodatna podešavanja za pokretanje nepotpisanih cmdleta.

U usporedbi s PowerShellom, ovo VBScript rješenje je gotovo savršeno. Sve što trebate učiniti je samo kliknuti na datoteku. Do pogledajte svoj ključ proizvoda za Windows 10

1. Otvorite Notepad.
2. Kopirajte i zalijepite sljedeći tekst u prozor Notepad

   Opcija Eksplicitna. Dim objshell, put, DigitalID, rezultat. Postavite objshell = CreateObject("WScript. Shell") 'Postavite put ključa registra Put = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Vrijednost ključa registra DigitalID = objshell. RegRead (put & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Dobijte ProductName, ProductID, ProductKey ProductName = "Naziv proizvoda: " & objshell. RegRead (put & "ProductName") ProductID = "ID proizvoda: " & objshell. RegRead (Path & "ProductID") ProductKey = "Installed Key: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Prikaži messbox ako spremite u datoteku. Ako je vbYes = MsgBox (ProductData & vblf & vblf & "Spremi u datoteku?", vbYesNo + vbQuestion, "Sigurnosna kopija informacija o ključu sustava Windows"), tada spremite podatke o proizvodu. Završi ako. 'Pretvori binarne u znakove Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, umetnite 'Provjerite je li OS Windows 8 isWin8 = (Key (66) \ 6) I 1 ključ (66) = (Ključ (66) i &HF7) Ili ((isWin8 i 2) * 4) i = 24 karte = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current * 256 Struja = Tipka (j + KeyOffset) + Trenutna tipka (j + KeyOffset) = (Trenutačna \ 24) Trenutna = Trenutna mod 24 j = j -1 Petlja Dok je j >= 0 i = i -1 Izlaz ključa = Srednji (karte, trenutni+ 1, 1) & zadnji izlaz ključa = Trenutna petlja Dok je i >= 0. Ako je (isWin8 = 1) Tada je dio ključa1 = Srednji (KeyOutput, 2, Zadnji) insert = "N" Izlaz ključa = Zamijeni (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Ako je Zadnji = 0 Tada KeyOutput = insert & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Sred (KeyOutput, 21, 5) End Function 'Spremi podatke u datoteku Funkcija Spremi (podatke) Dim fso, fName, txt, objshell, UserName Postavi objshell = CreateObject("wscript.shell") 'Preuzmi trenutni Korisničko ime. Korisničko ime = objshell. ExpandEnvironmentStrings("%UserName%") 'Stvorite tekstualnu datoteku na radnoj površini. fName = "C:\Users\" & Korisničko ime & "\Desktop\WindowsKeyInfo.txt" Postavite fso = CreateObject("Skriptiranje. FileSystemObject") Postavite txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Funkcija zatvaranja kraja 

3. Spremite gornji tekst u datoteku s ekstenzijom ".vbs" na radnoj površini.
   Bonus savjet: Kako biste bili sigurni da ste ispravno spremili datoteku s ekstenzijom ".vbs", možete upisati njezin naziv u dvostrukim navodnicima, na primjer, "BackupWindowsKey.vbs".
   
4. Sada otvorite datoteku BackupWindowsKey.vbs
5. Voila, vaš ključ proizvoda je prikazan na ekranu!
   

Kliknite ovdje za preuzimanje datoteke BackupWindowsKey.vbs

Testirao sam ovaj trik na Windows 7, Windows 8 i Windows 10. U svim navedenim operativnim sustavima radi besprijekorno. Zasluge: besmislica @ MDL.