Question

想求一段VBS代码，监控万象进程Clsmn,每隔2秒刷新进程，，，一直循环监控！

想求一段VBS代码，监控万象进程,每隔2秒刷新进程，，，一直循环监控！

当发现万象进程被关闭，Clsmn.exe

就立即关机！！不要出现提示框！直接快速关机！！

谢谢，真的太感谢啦！！！！！

大家帮帮我。。。

Answer 1

Dim WMI,Objs,isrun,oshell
Set oshell=CreateObject("wscript.shell")
Set WMI=GetObject("WinMgmts:")
isrun=0
do while 1=1
Set Objs=WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
if "Clsmn.exe"=lcase(Obj.Description) then isrun=1
Next

If 1<>isrun Then oshell.run "shutdown -s -t 0",0
wscript.sleep 2000
isrun=0
Set Objs=Nothing
loop
Set oshell=Nothing
Set WMI=Nothing
'虽然分很少，还是写了一个，不过要提醒你的是既然可以关掉clsmn.exe 也可以关掉wscript.exe

Answer 2

Set ob=GetObject("winmgmts:\\.\root\cimv2")
set ws=createObject("wscript.shell")
do
Set s=ob.ExecQuery("select * from Win32_Process where Name='Clsmn.exe' ")
for each i in s
if i.name="Clsmn.exe" then
ws.run "shutdown -s -t 0",0
wscript.quit
end if
next
wscript.sleep 1000
loop