禁止QQ上网的vbs脚本代码

用vbs查找系统进程，发现qq的进程则杀掉就是这段代码的原理

 

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