Nếu bạn bị mất hoặc quên nơi lưu khóa sản phẩm Windows của mình, tôi có một giải pháp cho bạn. Hôm nay chúng ta sẽ xem cách một tập lệnh VBS đơn giản có thể được sử dụng để hiển thị cho chúng ta khóa sản phẩm của một bản sao đã cài đặt của Windows 10, Windows 8 hoặc Windows 7. Đây là một giải pháp đơn giản để trích xuất khóa sản phẩm của bạn từ hệ điều hành được cài đặt trên PC của bạn mà không cần sử dụng bất kỳ phần mềm của bên thứ ba. Bắt đầu.
Quảng cáo
Trên thực tế, trước đó tôi đã đăng một giải pháp tương tự đã sử dụng PowerShell. nhưng nhiều người dùng phàn nàn rằng nó không thành công cho họ. PowerShell có thể yêu cầu các kỹ năng người dùng bổ sung và các chỉnh sửa bổ sung để chạy các lệnh ghép ngắn chưa được ký.
làm thế nào để chơi với những người bạn đã chết trong ánh sáng ban ngày
So với PowerShell, giải pháp VBScript này gần như hoàn hảo. Tất cả những gì bạn cần làm là chỉ cần nhấp vào tệp. Đến xem khóa sản phẩm Windows 10 của bạn
- Mở Notepad.
- Sao chép và dán văn bản sau vào cửa sổ Notepad
Tùy chọn Rõ ràng Dim objshell, đường dẫn, DigitalID, Kết quả Đặt objshell = CreateObject ('WScript.Shell') 'Đặt đường dẫn khóa đăng ký Đường dẫn =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Giá trị khóa đăng ký DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' ID sản phẩm: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Khóa đã cài đặt:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Hiển thị hộp thư nếu lưu vào tệp If vbYes = MsgBox (ProductData & vblf & vblf & 'Lưu vào tệp?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') sau đó Lưu ProductData End If 'Chuyển nhị phân thành ký tự Hàm ConvertToKey (Khóa) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput Cuối cùng, keypart1, insert 'Kiểm tra xem OS có phải là Windows 8 không isWin8 = (Key (66) 6) And 1 Key (66) = (Phím (66) Và & HF7) Hoặc ((isWin8 và 2) * 4) i = 24 Bản đồ = 'BCDFGHJKMPQRTVWXY2346789' Do hiện tại = 0 j = 14 Do hiện tại = Hiện tại * 256 Hiện tại = Khóa (j + KeyOffset) + Hiện tại Key (j + KeyOffset) = (Hiện tại 24) Hiện tại = Hiện tại Mod 24 j = j -1 Vòng lặp Trong khi j> = 0 i = i -1 KeyOutput = Giữa (Bản đồ, Hiện tại + 1, 1) & KeyOutput Cuối cùng = Vòng hiện tại 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 'Lưu dữ liệu vào tệp Chức năng Save (Data) Dim fso, fName, txt, objshell, UserName Đặt objshell = CreateObject (' wscript. shell ')' Lấy tên người dùng hiện tại UserName = objshell.ExpandEnosystemStrings ('% UserName%') 'Tạo một tệp văn bản trên desktop fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Đặt fso = CreateObject (' Scripting.FileSystemObject ') Đặt txt = fso.CreateTextFile (fName) txt.Writeline Dữ liệu txt. Đóng Hàm Kết thúc - Lưu văn bản trên vào một tệp có phần mở rộng '.vbs' trên Màn hình nền.
Mẹo bổ sung: Để đảm bảo rằng bạn lưu tệp đúng với phần mở rộng '.vbs', bạn có thể nhập tên của nó trong dấu ngoặc kép, ví dụ: 'BackupWindowsKey.vbs'.
- Bây giờ hãy mở tệp BackupWindowsKey.vbs của bạn
- Thì đấy, khóa sản phẩm của bạn được hiển thị trên màn hình!
Nhấp vào đây để tải xuống tệp BackupWindowsKey.vbs
Tôi đã thử nghiệm thủ thuật này trên Windows 7, Windows 8 và Windows 10. Nó hoạt động hoàn hảo trên tất cả các hệ điều hành được đề cập. Tín dụng: nononsence @ MDL .
