CODE: [Copy to clipboard]
@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
CODE: [Copy to clipboard]
@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