我想用VBS/VBE编个可以读取进程的

Question

我想用VBS/VBE编个可以读取进程的，监视江民杀毒的进程，好象叫什么kvmone.exe的，如果没这个进程就向网络上一台机子（有可读共享的）发送报告，请问要怎么做啊，请高手指点下
有点占内存哦，占了6M的内存，有没有办法优化一点点？还有：
net send
在网吧用不了，信使服务关掉的了，有没有别的办法，比如把记录写入\\192.168.0.2\j\j.txt里面？我查一下记录就知道是哪一台发的报告？我再加20分,谢谢了

Answer 1

Set Wshell=WScript.CreateObject("WScript.Shell")
Dim OK
OK = False
Set bag=GetObject("winmgmts:\\.\root\cimv2")
Do
set pipe=bag.execquery("select * from win32_process where name='kvmon.exe'")
For Each id In pipe
OK = True
Next
If Not OK Then '没有找到情况下
Wshell.Run "net send 计算机名 你要发送的报告",1,false
End If
Wscript.sleep 10000 '暂停10秒
Loop