Jak wyświetlić klucz produktu w systemie Windows 10, Windows 8 i Windows 7

Jeśli zgubiłeś lub zapomniałeś, gdzie przechowujesz klucz produktu Windows, mam dla Ciebie rozwiązanie. Dzisiaj zobaczymy, jak można użyć prostego skryptu VBS, aby pokazać nam klucz produktu zainstalowanej kopii systemu Windows 10, Windows 8 lub Windows 7. Jest to proste rozwiązanie, aby wyodrębnić klucz produktu z systemu operacyjnego zainstalowanego na komputerze bez używanie oprogramowania stron trzecich. No to ruszamy.

Reklama

jak naprawić podwójne kliknięcie myszą

W porównaniu z PowerShell to rozwiązanie VBScript jest prawie idealne. Wystarczy, że klikniesz plik. Do wyświetlić klucz produktu Windows 10

1. Otwórz Notatnik.
2. Skopiuj i wklej następujący tekst do okna Notatnika

   Option Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Ustaw ścieżkę klucza rejestru Path =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Wartość klucza rejestru DigitalID = objshell.RegRead (Ścieżka & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installed Key:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Pokaż komunikat, jeśli zapiszesz do pliku Jeśli vbYes = MsgBox (ProductData & vblf & vblf & 'Zapisać do pliku?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') then Save ProductData End If 'Convert binarna to chars Function ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Last, keypart1, wstaw 'Sprawdź, czy system operacyjny to Windows 8 to Win8 = (klawisz (66)  6) i 1 klawisz (66) = (Klucz (66) i & HF7) lub ((isWin8 i 2) * 4) i = 24 mapy = 'BCDFGHJKMPQRTVWXY2346789' Do prąd = 0 j = 14 Do prądu = Bieżący * 256 Bieżący = klucz (j + przesunięcie klawisza) + prąd Key (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 While i> = 0 If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then 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 'Zapisz dane do pliku Funkcja Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Pobierz bieżącą nazwę użytkownika UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Utwórz plik tekstowy na pulpicie fName =' C:  Users  '& UserName &'  Desktop  WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function

3. Zapisz powyższy tekst w pliku z rozszerzeniem „.vbs” na pulpicie.
   Dodatkowa wskazówka: Aby upewnić się, że zapisujesz plik poprawnie z rozszerzeniem „.vbs”, możesz wpisać jego nazwę w podwójnych cudzysłowach, na przykład „BackupWindowsKey.vbs”.
   
4. Teraz otwórz plik BackupWindowsKey.vbs
5. Voila, Twój klucz produktu jest wyświetlany na ekranie!
   

Kliknij tutaj, aby pobrać plik BackupWindowsKey.vbs

Testowałem tę sztuczkę na Windows 7, Windows 8 i Windows 10. Działa bezbłędnie we wszystkich wymienionych systemach operacyjnych. Kredyty: nononsence @ MDL .