一、使用VBS文件查詢已激活系統(tǒng)密鑰及備份密鑰制作一個(gè)【密鑰查詢.vbs】文件可以查詢已激活系統(tǒng)的密鑰及備份密鑰。具體操作步驟如下：1. 將下面的內(nèi)容復(fù)制到記事本中：Option ExplicitDi

一、使用VBS文件查詢已激活系統(tǒng)密鑰及備份密鑰

制作一個(gè)【密鑰查詢.vbs】文件可以查詢已激活系統(tǒng)的密鑰及備份密鑰。具體操作步驟如下：

1. 將下面的內(nèi)容復(fù)制到記事本中：

Option Explicit

Dim objshell, path, DigitalID, ResultSet

Set objshell CreateObject("")'39;

'Set registry key path

Path "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"

'Registry key value read

DigitalID (Path "DigitalProductId")

Dim ProductName,ProductID,ProductKey,ProductData'39;

'Get ProductName, ProductID, ProductKey

ProductName "系統(tǒng)名稱：" (Path "ProductName")

ProductID "產(chǎn)品ID：" (Path "ProductID")

ProductKey "已安裝密鑰：" ConvertToKey(DigitalID)

ProductData ProductName vbNewLine ProductID vbNewLine ProductKey'39;

'Show messbox if save to a file

If vbYes MsgBox(ProductData vblf vblf "要將注泛率密鑰保存到文件嗎？", vbYesNo _

vbQuestion, "軟媒魔方備份Windows密鑰信息") Then

Save ProductData

End If'39;

'Convert binary to chars

Function ConvertToKey(Key)

Const KeyOffset 52

Dim isWin10, Maps, i, j, Current, KeyOutput, Last, keypart1, insert'39;

'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) And 255

CurrentCurrent 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'39;

'Save data to a file

Function Save(Data)

Dim fso, fName, txt,objshell,UserName

Set objshell CreateObject("")'39;

'Get current user name

UserName objshell.ExpandEnvironmentStrings("%UserName%")'39;

'Create a text file on desktop

fName "C:Users" UserName "DesktopWindows密鑰備份.txt"

Set fso CreateObject("")

Set txt (fName)

txt.Writeline Data

End Function

2. 點(diǎn)擊記事本左下角的【文件】，在下拉菜單中點(diǎn)擊【另存為】。

3. 在打開的另存為窗口，點(diǎn)擊【桌面】，在文件名（N）欄中輸入：密鑰查詢.vbs，再點(diǎn)擊：保存。

4. 我們保存密鑰查詢.vbs文件后，在系統(tǒng)桌面上顯示一個(gè)【密鑰查詢.vbs】文件圖標(biāo)，左鍵雙擊【密鑰查詢.vbs】文件圖標(biāo)，打開一個(gè)軟媒魔方備份Windows密鑰信息對(duì)話框，顯示了系統(tǒng)名稱、產(chǎn)品ID和已安裝密鑰。

5. 如果需要保存安裝密鑰，點(diǎn)擊：是（Y），則安裝密鑰就會(huì)以記事本的方式保存到系統(tǒng)桌面上。

二、使用第三方軟件備份還原系統(tǒng)激活文件

除了使用VBS文件查詢已激活系統(tǒng)密鑰外，我們還可以使用第三方軟件軟媒魔方中的Windows激活備份程序來備份、還原系統(tǒng)激活文件。具體操作步驟如下：

1. 下載、安裝、啟動(dòng)軟媒魔方軟件，點(diǎn)擊右下角的【應(yīng)用大全】；

2. 在應(yīng)用大全的設(shè)置向?qū)Т翱冢业讲Ⅻc(diǎn)擊【W(wǎng)indows激活備份】；

3. 在打開的Win7/Win8（Win10系統(tǒng)可用）激活文件備份還原窗口，點(diǎn)擊【備份系統(tǒng)激活文件】；

4. 在瀏覽文件夾窗口，點(diǎn)擊【新建文件夾】，把新建的文件夾命名為：系統(tǒng)激活文件（或其他名稱），點(diǎn)擊：確定；

5. 點(diǎn)擊確定以后，彈出一個(gè)提示對(duì)話框：備份Windows8（實(shí)際是Windows10）激活文件成功，點(diǎn)擊：確定。

6. 如果需要還原系統(tǒng)激活文件，只需在Win7/Win8激活文件備份還原窗口，點(diǎn)擊【還原系統(tǒng)激活文件】；

7. 在打開的瀏覽文件夾窗口，點(diǎn)擊【系統(tǒng)激活文件】文件夾，再點(diǎn)擊：確定；

8. 點(diǎn)擊確定以后，即彈出一個(gè)提示對(duì)話框：還原Windows8（實(shí)際為Windows10）激活文件成功！點(diǎn)擊：確定。

以上兩種方法均可查詢已激活Windows10系統(tǒng)的密鑰及備份還原密鑰。供朋友們參考使用。