2016 - 2024

感恩一路有你

如何查询已激活Windows10系统的密钥及备份还原密钥呢?

浏览量:1317 时间:2024-07-26 15:44:27 作者:采采

一、使用VBS文件查询已激活系统密钥及备份密钥

制作一个【密钥查询.vbs】文件可以查询已激活系统的密钥及备份密钥。具体操作步骤如下:

1. 将下面的内容复制到记事本中:

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 "系统名称:" (Path "ProductName")

ProductID "产品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. 点击记事本左下角的【文件】,在下拉菜单中点击【另存为】。

3. 在打开的另存为窗口,点击【桌面】,在文件名(N)栏中输入:密钥查询.vbs,再点击:保存。

4. 我们保存密钥查询.vbs文件后,在系统桌面上显示一个【密钥查询.vbs】文件图标,左键双击【密钥查询.vbs】文件图标,打开一个软媒魔方备份Windows密钥信息对话框,显示了系统名称、产品ID和已安装密钥。

5. 如果需要保存安装密钥,点击:是(Y),则安装密钥就会以记事本的方式保存到系统桌面上。

二、使用第三方软件备份还原系统激活文件

除了使用VBS文件查询已激活系统密钥外,我们还可以使用第三方软件软媒魔方中的Windows激活备份程序来备份、还原系统激活文件。具体操作步骤如下:

1. 下载、安装、启动软媒魔方软件,点击右下角的【应用大全】;

2. 在应用大全的设置向导窗口,找到并点击【Windows激活备份】;

3. 在打开的Win7/Win8(Win10系统可用)激活文件备份还原窗口,点击【备份系统激活文件】;

4. 在浏览文件夹窗口,点击【新建文件夹】,把新建的文件夹命名为:系统激活文件(或其他名称),点击:确定;

5. 点击确定以后,弹出一个提示对话框:备份Windows8(实际是Windows10)激活文件成功,点击:确定。

6. 如果需要还原系统激活文件,只需在Win7/Win8激活文件备份还原窗口,点击【还原系统激活文件】;

7. 在打开的浏览文件夹窗口,点击【系统激活文件】文件夹,再点击:确定;

8. 点击确定以后,即弹出一个提示对话框:还原Windows8(实际为Windows10)激活文件成功!点击:确定。

以上两种方法均可查询已激活Windows10系统的密钥及备份还原密钥。供朋友们参考使用。

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。