如何让您的WinXP通过正版验证

微软近几个月来封杀了大批泄露的VLK，例如以前流传甚广的DG8FV-B9TKY-FRT9J-6CRCC-XPQ4G(上海政府版)、HH7VV-6P3G9-82TWK-QKJJ3-MXR96等现在都无法通过微软的正版验证了（大多数盗版WinXP目前都在使用这两个序列号）。不过不要着急，在Google上搜搜仍然可以找到一些可用的VLK：

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
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT

更换序列号的方法也非常简单，把下面的代码复制到记事本中：

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明："&vbCr&vbCr&"   本程序将自动替换您当前 Windows 的序列号,能完全通过微软正版验证。"&vbCr&vbCr&"(注：OEM版无效,请确认您的系统版本为 XP VLK)"&vbCr&vbCr&"输入序列号(默认为工行版VLK)：","Windows XP/2003 序列号更换工具","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,”-“,””) ‘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 “您的 Windows CD-KEY 修改成功。请检查系统属性。”
end if

if err 0 then
Wscript.echo “修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。”
Err.Clear
end if

Next

然后保存为keychange.vbs，这个VB脚本就是一个完美的换号器。

运行这个程序，填入我上面所列的任意一个序列号（默认是工行版序列号，也可以不修改——如果以后没有被微软封掉的话），执行就可以了，瞬间完成，甚至不用重启系统。然后您的Windows XP就能通过微软的正版验证了^_^