作者:moTzxx | 来源:互联网 | 2024-11-18 15:26
本文介绍了如何使用VBScript脚本在IE7上安装Windows序列号的方法。对于使用超级解霸的用户,如果遇到.vbs文件无法正常运行的问题,文中也提供了相应的解决办法。
为了在 IE7 上安装 Windows 序列号,您可以按照以下步骤操作:
1. 将以下代码复制并粘贴到记事本中,保存为 key.vbs
。
2. 双击运行 key.vbs
文件。如果您使用的是超级解霸,可能会发现双击 .vbs 文件会启动解霸播放器,这是因为解霸更改了 .vbs 文件的默认打开方式。解决方法是在注册表中找到 HKEY_CLASSES_ROOT\.vbs
,将默认值更改为 VBSFile
。
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY = InputBox("Powered By Cat's Eye" & vbCr & vbCr & "本程序将自动替换您当前 Windows 的序列号,通过微软验证完全正版。" & vbCr & vbCr & "序列号(OEM版无效,默认版本为 XP VLK): ", "Windows XP 序列号自动更换器", "MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY = "" then
Wscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
VOL_PROD_KEY = Replace(VOL_PROD_KEY, "-", "") ' 去除可能存在的连字符
for each Obj in GetObject("winmgmts:{impersOnationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err = 0 then
Wscript.echo "成功!请前往微软验证。"
end if
if err <> 0 then
Wscript.echo "替换失败!输入的 CD-KEY 与当前版本不匹配。"
Err.Clear
end if
Next
以上脚本将提示您输入 Windows 序列号,并尝试将其应用于当前系统。如果成功,脚本将显示“成功!请前往微软验证。” 如果失败,将显示“替换失败!输入的 CD-KEY 与当前版本不匹配。”