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
