<br /> ON ERROR RESUME NEXT</p> <p>Dim VOL_PROD_KEY<br /> if Wscript.arguments.count<1 then<br /> VOL_PROD_KEY=InputBox("使用说明："&vbCr&vbCr&"   本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)："&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows XP/2003 序列号更换工具","DG8FV-B9TKY-FRT9J-6CRCC-XPQ4G")<br /> if VOL_PROD_KEY="" then<br /> Wscript.quit<br /> end if<br /> else<br /> VOL_PROD_KEY = Wscript.arguments.Item(0)<br /> end if</p> <p>VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any</p> <p>for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")</p> <p>result = Obj.SetProductKey (VOL_PROD_KEY)</p> <p>if err = 0 then<br /> Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"<br /> end if</p> <p>if err <> 0 then<br /> Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"<br /> Err.Clear<br /> end if</p> <p>Next
将其保存为VBS脚本文件或 ，打开后输入正确的CDKEY即可替换。
点击下载此文件
提供几个CD-KEY（未测试）：
MRX3F-47B9T-2487J-KWKMF-RPWBY
QC986-27D34-6M3TY-JJXP9-TBGMD
CM3HY-26VYW-6JRYC-X66GX-JVY2D
DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ
F4297-RCWJP-P482C-YY23Y-XH8W3
HH7VV-6P3G9-82TWK-QKJJ3-MXR96
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT