禁止QQ上网的vbs脚本代码

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