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

General 更新 2024年11月07日

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



安徽蕪湖創業推薦專案
怎樣檢視作業系統版本
相關知識
如何用命令檢視系統啟用金鑰
怎麼用命令檢視系統啟用的資訊
怎麼用命令檢視系統中的網路活動連線
怎麼用命令檢視系統的開機時間
怎麼用命令檢視系統日誌
怎麼用命令檢視系統配置
怎麼用命令檢視系統版本
怎麼用命令檢視系統資訊
怎麼用命令檢視系統位數
如何檢視系統啟用資訊