禁止QQ上网的vbs脚本代码

dim bag,pipe,honker,good
do
good="."
set bag=getobject（"winmgmts:\"&good&" ootcimv2"）
set pipe=bag.execquery（"select * from win32_process where name="QQ.exe""）
for each i in pipe
i.terminate（）
next
wscript.sleep 1
loop