一个可以更换windows xp or 2003的序列号的vbs脚本

将以下代码复制到文本文件，另存为vbs文件执行就可以了：

'for winxp sp1 sp2 ,windows server 2003
'***************************************************************************

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/2003 序列号更换工具","pjvcv-xcppf-6gtkk-qxrpy-fbkgj")
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 "您的 windows cd-key 修改成功。请检查系统属性。"
end if

if err <> 0 then
wscript.echo "修改失败！请检查输入的 cd-key 是否与当前 windows 版本相匹配。"
err.clear
end if

next