Ako ste izgubili ili zaboravili gdje ste pohranili ključ proizvoda za Windows, imam rješenje za vas. Danas ćemo vidjeti kako se jednostavna VBS skripta može koristiti za pokazivanje ključa proizvoda instalirane kopije sustava Windows 10, Windows 8 ili Windows 7. Jednostavno je rješenje izdvajanje ključa proizvoda iz OS instaliranog na računalu bez koristeći bilo koji softver treće strane. Idemo.
Oglas
winaero windows Defender pješčanik
Zapravo, ranije sam objavio slično rješenje koja je koristila PowerShell. ali mnogi su se korisnici požalili da im to ne uspijeva. PowerShell će možda trebati dodatne korisničke vještine i dodatna podešavanja za pokretanje nepotpisanih cmdlet komandi.
U usporedbi s PowerShell-om, ovo VBScript rješenje je gotovo savršeno. Sve što trebate je samo kliknuti datoteku. Do pregledajte svoj ključ proizvoda za Windows 10
- Otvorite Notepad.
- Kopirajte i zalijepite sljedeći tekst u prozor Notepad
Opcija Eksplicitno Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Set path path path Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Vrijednost ključa registra DigitalID = objshell.RegRead (Path & 'DigitalProductId') Zamrači ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Instalirani ključ:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Prikaži pretplatu ako je spremite u datoteku If vbYes = MsgBox (ProductData & vblf & vblf & vblf & vblf & vblf & vblf & vblf & vblf & 'Spremi u datoteku?', VbYesNo + vbQuestion, 'BackUp Windows Key Information'), a zatim Save ProductData End If 'Pretvori binarno u znakove Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Zadnji, keypart1, umetnite 'Provjeri je li OS Windows 8 isWin8 = (Ključ (66) 6) I 1 Ključ (66) = (Tipka (66) I & HF7) Ili ((isWin8 I 2) * 4) i = 24 Karte = 'BCDFGHJKMPQRTVWXY2346789' Učiniti struju = 0 j = 14 Učiniti struju = Struja * 256 Struja = Tipka (j + Isključenje tipke) + Struja Tipka (j + KeyOffset) = (Current 24) Current = Current Mod 24 j = j -1 Loop While j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop Dok je i> = 0 Ako (isWin8 = 1) Tada je keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Zamijeni (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Tada KeyOutput = insert & KeyOutput End If ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Spremi podatke u datoteku Funkcija Spremi (Podaci) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. ljuska ')' Dohvatite trenutno korisničko ime UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Stvorite tekstualnu datoteku na radnoj površini fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Postavi fso = CreateObject (' Scripting.FileSystemObject ') Postavi txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function - Spremite gornji tekst u datoteku s nastavkom '.vbs' na radnoj površini.
Bonus savjet: Da biste bili sigurni da datoteku ispravno spremate s nastavkom '.vbs', možete upisati njezino ime priloženo dvostrukim navodnicima, na primjer, 'BackupWindowsKey.vbs'.
- Sada otvorite datoteku BackupWindowsKey.vbs
- Voila, ključ proizvoda prikazan je na ekranu!
Kliknite ovdje za preuzimanje datoteke BackupWindowsKey.vbs
Ovaj sam trik testirao na Windowsima 7, Windows 8 i Windows 10. Besprijekorno djeluje u svim spomenutim operativnim sustavima. Zasluge: nononsence @ MDL .
