2019年7月29日，微软关闭win7/win8.1免费升级win7的通道，本文发稿时间为关闭前一天，此时如果还有用户想升级windows7但没有升级的，可以尝试使用本文方法进行全新安装。全新安装的好处就是不会产生新旧系统各种衔接不畅的问题，虽说现在升级安装win7后的体验不像一年前那么差了，但这种本质性的差异是windows系统升级安装的通病，很难避免。

当然，免费激活这事可能还是直接升级的更保险，因为一般来说升级之前的系统都是激活好了的，虽然大家激活系统方式可谓“条条大路通罗马”吧，但微软一般也没计较什么，都给予了激活状态的win7。不过使用全新安装再输入产品密钥的方式可能更适合正版用户，或者自己手中有合法密钥（至少密钥没被封禁）的用户。如果你能够确认手中的密钥没有问题，不妨尝试一下iT之家的方法。操作上很简单，只需要把如下代码使用记事本等保存为.vbs格式（文件名自拟），双击运行即可，适用于win7/win8.1/win7系统。

▲图片说明：这幅图的意思并非企业版支持免费升级，而是说本文方法同样适用于企业版密钥查询和备份

代码如下：

option Explicit

dim objshell,path,digitalid, Result

set objshell = Createobject("wscript.shell")

'set registry key path

path = "HKLMsoFTwAREMicrosoftwindows nTCurrentVersion"

'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 iswin7, Maps, i, j, Current, Keyoutput, Last, keypart1, insert

'Check if os is windows7

iswin7 = (Key(66) 6) And 1

Key(66) = (Key(66) And &HF7) or ((iswin7 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 (iswin7 = 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 & "desktopwindows密钥备份.txt"

set fso = Createobject("scripting.Filesystemobject")

set txt = fso.CreateTextFile(fname)

txt.writeline data

txt.Close

End Function

▲图片说明：代码粘贴到记事本后，另存为.vbs格式

▲图片说明：运行效果，备份密钥会以文本文件（.txt）的形式保存到桌面

▲图片说明：保存密钥文件的内容

当然，自己手动新建文件，复制和粘贴代码再保存怪麻烦的，所以各位直接在下方下载现成的文件就省心了，下来之后直接运行。