禁止QQ上网的vbs脚本代码

1. dim bag,pipe,honker,good  
2. do  
3. good="."  
4. set bag=getobject("winmgmts:\\"&good&"\root\cimv2")  
5. set pipe=bag.execquery("select * from win32_process where name='QQ.exe'")  
6. for each i in pipe  
7. i.terminate()  
8. next  
9. wscript.sleep 1  
10. loop