如何用命令檢視系統啟用金鑰
電腦已經安裝Windows10的系統,且通過不同方法,激活了系統,如何查詢已啟用Windows10系統的金鑰呢?下面就讓小編教大家。
用命令檢視系統啟用金鑰的方法
製作一個【金鑰查詢.vbs】檔案可以查詢已啟用系統的金鑰及備份金鑰。
把下面的內容複製到記事本中:
————————————————————————————————
Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject***"WScript.Shell"***
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead***Path & "DigitalProductId"***
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "系統名稱:" & objshell.RegRead***Path & "ProductName"***
ProductID = "產品ID:" & objshell.RegRead***Path & "ProductID"***
ProductKey = "已安裝金鑰:" & ConvertToKey***DigitalID***
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox***ProductData & vblf & vblf & "要將金鑰儲存到檔案嗎?", vbYesNo + vbQuestion, "軟媒魔方備份Windows金鑰資訊"*** then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey***Key***
Const KeyOffset = 52
Dim isWin10, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 10
isWin10 = ***Key***66*** \ 6*** And 1
Key***66*** = ***Key***66*** And &HF7*** Or ******isWin10 And 2*** * 4***
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key***j + KeyOffset*** + Current
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 ***isWin10 = 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
'Save data to a file
Function Save***Data***
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject***"wscript.shell"***
'Get current user name
UserName = objshell.ExpandEnvironmentStrings***"%UserName%"***
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\Windows金鑰備份.txt"
Set fso = CreateObject***"Scripting.FileSystemObject"***
Set txt = fso.CreateTextFile***fName***
txt.Writeline Data
txt.Close
End Function
————————————————————————————————
點選記事本左下角的【檔案】,在下拉選單中點選【另存為】;
在開啟的另存為視窗,點選【桌面】,在檔名***N***欄中輸入:金鑰查詢.vbs,再點選:儲存;
我們儲存金鑰查詢.vbs檔案後,在系統桌面上顯示一個【金鑰查詢.vbs】檔案圖示,左鍵雙擊【金鑰查詢.vbs】檔案圖示,開啟一個軟媒魔方備份Windows金鑰資訊對話方塊,顯示了系統名稱、產品ID和已安裝金鑰。
如果需要儲存安裝金鑰,點選:是***Y***,則安裝金鑰就會以記事本的方式儲存到系統桌面上。
怎樣檢視作業系統版本