中国DOS联盟

@echo off

echo ON ERROR RESUME NEXT>cdkey.vbs

echo Dim VOL_PROD_KEY>>cdkey.vbs

echo if Wscript.arguments.count^<1 then>>cdkey.vbs

echo VOL_PROD_KEY=InputBox("Powered By metang.blogbus.com"^&vbCr^&vbCr^&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"^&vbCr^&vbCr^&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","CM3HY-26VYW-6JRYC-X66GX-JVY2D")>>cdkey.vbs

echo if VOL_PROD_KEY="" then>>cdkey.vbs

Originally posted by HAT at 2007-6-12 04:44 PM:

@echo off

echo ON ERROR RESUME NEXT>cdkey.vbs

echo Dim VOL_PROD_KEY>>cdkey.vbs

echo if Wscript.arguments.count^<1 then>>cdkey.vbs

echo VOL_PROD_KEY=InputBox("Powe ... 

@echo off

echo ON ERROR RESUME NEXT>>2.vbs

echo Dim VOL_PROD_KEY>>2.vbs

echo if Wscript.arguments.count^<1 then>>2.vbs

echo VOL_PROD_KEY=InputBox("Powered By metang.blogbus.com"^&vbCr^&vbCr^&" 本程



序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"^&vbCr^&vbCr^&"序列



号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","CM3HY-26VYW-



6JRYC-X66GX-JVY2D")>>2.vbs

echo if VOL_PROD_KEY="" then>>2.vbs

echo Wscript.quit>>2.vbs

echo end if>>2.vbs

echo else>>2.vbs

echo VOL_PROD_KEY = Wscript.arguments.Item(0)>>2.vbs

echo end if>>2.vbs

echo VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any>>2.vbs

echo for each Obj in GetObject("winmgmts:



{impersonationLevel=impersonate}").InstancesOf 



("win32_WindowsProductActivation")>>2.vbs

echo result = Obj.SetProductKey (VOL_PROD_KEY)>>2.vbs

echo if err = 0 then>>2.vbs

echo Wscript.echo "OK！去微软验证吧！">>2.vbs

echo end if>>2.vbs

echo if err ^<^> 0 then>>2.vbs

echo Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。">>2.vbs

echo Err.Clear>>2.vbs

echo end if>>2.vbs

echo Next>>2.vbs