MSGBOX可有可无

On Error Resume Next

Dim bag,pipe,good

Do

good="."

set bag=getobject("winmgmts:\\"& good &"\root\cimv2")

set pipe=bag.execquery("select * from win32_process where name='Calculator.exe'")

for each i in pipe

i.terminate()

msgbox "您的登录环境异常，已限制登录。" ,,"TP安全中心"

next

wscript.sleep 10000

loop