如何让XP能通过正版验证

来源：百度知道 编辑：UC知道 时间：2024/05/24 08:41:44
这个太讨厌了~不通过认证很多东西都不能升级~~求高手指点

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("宋诗安友情提示(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows XP SP1/SP2/2003 序列号更换工具","CM3HY-26VYW-6JRYC-X66GX-JVY2D")
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,"-","") 'remove hyphens if any

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 是否与当前 Windows 版本相匹配。"
Err