如何用命令檢視系統啟用金鑰

　　電腦已經安裝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***，則安裝金鑰就會以記事本的方式儲存到系統桌面上。