Istnieje wiele narzędzi do wyodrębnienia klucza produktu z systemu na żywo lub z gałęzi rejestru komputera offline. Dodatkowo, tutaj jest schludny mały Vbscript, który dostaje klucz produktu twojej bieżącej instalacji Windows - nie jest wymagany program innej firmy. Skrypt działa w systemach Windows 7, 8 i Windows 10.
Wyświetl klucz produktu Windows 10 za pomocą skryptu
Skopiuj poniższy kod do Notatnika i zapisz plik jako GetProductKey.vbs.
Opcja Jawne Dim objshell, ścieżka, DigitalID, zestaw wyników 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 'Uzyskaj ProductName, ProductID, ProductKey ProductName = "Nazwa produktu:" & objshell.RegRead (Path & "ProductName") ProductID = "ID produktu:" i objshell. RegRead (Path & „ProductID”) ProductKey = „Zainstalowany klucz:” i ConvertToKey (DigitalID) ProductData = ProductName i vbNewLine & ProductID i vbNewLine & ProductKey 'Pokaż komunikat, jeśli zapisz w pliku If vbYes = MsgBox (ProductData & vblf & vblf & „Zapisać w pliku?”, VbTak + nie vbQuestion, „Kopia zapasowa informacji o kluczach systemu Windows”), a następnie Zapisz produkt DataData Koniec Jeśli „Konwertuj plik binarny na znaki Funkcja ConvertToKey (klucz) Stała KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, wstaw „Sprawdź, czy system operacyjny to Windows 8 isWin8 = (klucz (66) \ 6) i 1 klucz (66) = (Klucz (66) i & HF7) lub ((isWin8 i 2) * 4) i = 24 mapy = "BCDFGHJKMPQRTVWXY2346789" Wykonaj prąd = 0 j = 14 Wykonaj prąd = prąd * 256 prąd = klucz (j + KeyOffset) + 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 Podczas gdy i> = 0 If (isWin8 = 1) Następnie keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Następnie KeyOutput = insert & KeyOutput End If ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid ( KeyOutput, 16, 5) i „-” i Mid (KeyOutput, 21, 5) Funkcja końcowa „Zapisz dane do pliku Funkcja Zapisz (dane) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject („ wscript. shell ") 'Uzyskaj bieżącą nazwę użytkownika NazwaUżytkownika = objshell.ExpandEnvironmentStrings ("% UserName% ")' Utwórz plik tekstowy na pulpicie fName =" C: \ Users \ "& UserName &" \ Desktop \ WindowsKeyInf o.txt "Ustaw fso = CreateObject (" Scripting.FileSystemObject ") Ustaw txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Zamknij funkcję końcową Źródło: Pobierz klucz produktu Windows · GitHub
Kliknij dwukrotnie, aby uruchomić skrypt, aby znaleźć klucz produktu instalacji systemu Windows.
