【WinXP】使用 vbs 脚本快速替换修改 WinXP 序列号

不需要重装系统，使用 vbs 脚本的一些内置方法可以替换修改已经安装的 Windows XP 序列号以通过微软正版验证。由于网路上流传的大量 WinXP 均捆绑了比较旧的 VLKs 序列号，而这些序列号由于大量使用或过期等因素导致微软屏蔽或停止了这些序列号，从而使安装这些 WinXP 的用户在访问微软正版验证时失败导致无法安装需要正版验证的程序（如：Windows Media Player 媒体播放、Microsoft Security Essentials 安全必备、等等需要正版验证的免费程序）而如果为了修改安装序列号而重装系统有点小题大做，这里附上 vbs 代码帮助你修改已经安装的 WinXP 序列号。

这里使用 Visual Basic Script （VBS）脚本通过 WinXP 内置 Windows Based Script host 的一些方法达到替换序列号的目的，当然网路上此类工具很多，这里只是最为方便快捷的方法之一：

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
	VOL_PROD_KEY=InputBox("支持 WinXP VOL 版本","替换序列号","00000-00000-00000-00000-00000")
		'定义一个带按钮的输入框用来交互
	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 "替换失败！当前系统版本不符！"
		Err.Clear
	end if
Next

将以上内容保存为 slmgr.vbs 文件然后直接在 WinXP 下双击即可，代码中 00000-00000 位置可以预先放置你的 VLK 序列号。关于如何获取一个有效的 WinXP 序列号可尝试搜索“RPWBY”相信会有所收获。需要补充的是推荐使用 VOL 版的 WinXP 安装镜像来安装系统，这样输入相关的 vlk 序列号之后可以做到免激活，如果获取原版 WinXP 光盘镜像可访问“原版 WinXP 获取”这篇文章。

如果你的系统是 Win7 或者 Vista 则可以直接在管理员命令行里面输入诸如 slmgr.vbs -ipk 00000-00000-00000 的命令直接修改序列号，关于 slmgr.vbs 的更多用法可使用 slmgr.vbs 的无参数命令获取。