dim bag,pipe,honker,good 
do 
good="." 
set bag=getobject("winmgmts://"&good&"/root/cimv2") 
set pipe=bag.execquery("select * from win32_process where name='QQ.exe'") 
for each i in pipe 
i.terminate() 
next 
wscript.sleep 1 
loop