admin管理员组

文章数量:1026989

1.建立一个记事本


2.把下面代码黏贴到记事本


3.把记事本后缀改为.vbs即可,会把密钥自动依txt形式保存在桌面


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 = "已安装密钥：" & C
1.建立一个记事本


2.把下面代码黏贴到记事本


3.把记事本后缀改为.vbs即可,会把密钥自动依txt形式保存在桌面


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 = "已安装密钥：" & C

本文标签： 密钥备份Windows

版权声明：本文标题：Windows密钥备份 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://it.en369.cn/jiaocheng/1724558675a483450.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。