Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function
----------- IT之家分割线 ------------
▲图片说明:代码粘贴到记事本后,另存为.vbs格式
▲图片说明:运行效果,备份密钥会以文本文件(.txt)的形式保存到桌面
▲图片说明:保存密钥文件的内容
当然,自己手动新建文件,复制和粘贴代码再保存怪麻烦的,所以各位直接在下方下载现成的文件就省心了,下来之后直接运行。
Windows 产品密钥查询备份文件:网盘下载(2KB)
另外,软媒魔方(点击下载)也有Win7/Win8.1以及Office产品密钥备份激活功能,无需记住密钥,而且可以直接在魔方中还原激活,有需要的用户可以下载使用。
Win10一周年更新版如何激活?点此查看激活秘笈。
本文来源:不详 作者:佚名