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 za pomocą prostego skryptu VBS można pokazać nam klucz produktu zainstalowanej kopii systemu Windows 10, Windows 8 lub Windows 7. Jest to proste rozwiązanie umożliwiające wyodrębnienie klucza produktu z systemu operacyjnego zainstalowanego na komputerze bez korzystania z oprogramowania innych firm. No to ruszamy.

Właściwie wcześniej pisałem a podobne rozwiązanie który używał PowerShell. ale wielu użytkowników skarżyło się, że im się to nie udaje. PowerShell może wymagać dodatkowych umiejętności użytkownika i dodatkowych poprawek do uruchamiania niepodpisanych poleceń cmdlet.

W porównaniu do PowerShell to rozwiązanie VBScript jest prawie idealne. Wszystko, co musisz zrobić, to po prostu kliknąć plik. Do wyświetl klucz produktu Windows 10

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

   Opcja Jawna. Dim objshell, ścieżka, DigitalID, wynik. Ustaw objshell = CreateObject("WScript. Shell") 'Ustaw ścieżkę klucza rejestru Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Wartość klucza rejestru DigitalID = objshell. RegRead (Ścieżka i "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Pobierz ProductName, ProductID, ProductKey ProductName = "Product Name: " & objshell. RegRead (Path & "ProductName") ProductID = "Identyfikator produktu: " & objshell. RegRead (Path & "ProductID") ProductKey = "Zainstalowany klucz: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Pokaż messbox, jeśli zapisujesz do pliku. Jeśli vbYes = MsgBox (ProductData & vblf & vblf & "Zapisać do pliku?", vbYesNo + vbQuestion, "BackUp Windows Key Information"), to Zapisz ProductData. Zakończ, jeśli. 'Konwertuj plik binarny na znaki Funkcja ConvertToKey (Klucz) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'Sprawdź, czy system operacyjny to Windows 8 isWin8 = (Key (66) \ 6) I 1 klawisz (66) = (Klucz (66) I &HF7) Lub ((isWin8 i 2) * 4) i = 24 Mapy = "BCDFGHJKMPQRTVWXY2346789" Wykonaj Obecny= 0 j = 14 Wykonaj Obecny = Aktualny * 256 Prąd = Klucz (j + Przesunięcie klucza) + Current Key (j + KeyOffset) = (Bieżący \ 24) Current=Bieżący Mod 24 j = j -1 Loop While j >= 0 i = i -1 KeyOutput = Mid (Maps, Current+ 1, 1) & KeyOutput Last = Bieżąca pętla, gdy 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 = wstaw & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Środek (KeyOutput, 21, 5) End Function 'Zapisz dane do pliku Function Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Pobierz aktualny Nazwa Użytkownika. Nazwa użytkownika = powłoka obiektu. ExpandEnvironmentStrings("%UserName%") 'Utwórz plik tekstowy na pulpicie. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Skrypty. FileSystemObject") Ustaw txt = fso. Utwórz plik tekstowy (fName) txt. Zapis danych txt. Zamknij funkcję zakończenia 

3. Zapisz powyższy tekst w pliku z rozszerzeniem „.vbs” na pulpicie.
   Dodatkowa wskazówka: Aby upewnić się, że plik został poprawnie zapisany 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: nonsens @MDL.