VBS如何取任务管理器进程的各种值

'这是一个VBS，自动监控MDecoder.exe,如果MDecoder.exe异常退出，会自动启动MDecoder.exe进程，参考http://wenwen.soso.com/z/q264985198.htm

1G f8L9l K{2M)}7n1}0SET WSHSHELL=WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL")51Testing软件测试网+RT7yNL$Z!G5S6aQ
Dim Mysign,objShell51Testing软件测试网1P ` Ph!ZgG&Z
 Set bjShell = CreateObject("Wscript.Shell")51Testing软件测试网:pX)?h|ah
do while 1 51Testing软件测试网dB?,rQE0@'@#U
 Mysign=0
WwCS;w0for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
'b
rd2Vs0 if(ps.name="MDecoder.exe" )then
f|c4ynT[B*f6Wf0  'WSHSHELL.RUN "CMD /C TASKKILL /IM "&PS.NAME&" /F",0,151Testing软件测试网%x-Fjb:Y6xG
  'WSHSHELL.RUN "你的bat文件和路径"
8}LJL5|0  'msgbox "MDecoder.exe is running!"51Testing软件测试网"PagOCAg
  Mysign=0
:x8P ]_+Ed2I0  Exit for
0}9|&Y.zg-\+ZJE0 end if51Testing软件测试网,[MQ:o5C7O9EO:fWF?
  Mysign=151Testing软件测试网U8q+XQY+e5rCY(Q N]
next51Testing软件测试网!~6B7@k#m? F
if(1=Mysign) then

objShell.Run "D:\MDecoder\MDecoder.exe"51Testing软件测试网g6Y/U5Qu3\j
end if
*u'V"T;R:I$nVe-v0Wscript.Sleep 15000
K_0_`Nhi"U0loop51Testing软件测试网IR-|8CIX2Wu+?

|Bc1NS*c0------------------------------------------------------以下是Win32_Process对这个属性的一个扩展，可以直接保存vbs，运行，看看运行结果。有关多Win32_Process属性，请看http://wenku.baidu.com/view/95a924ce050876323112121b.html。

strComputer = "."51Testing软件测试网r-rZL1f1\8Z,eN&i
Set wbemServices = Getobject("winmgmts:\\" & strComputer)51Testing软件测试网2A{*hU5o l#W1vw
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
"A'LG2[P0For Each wbemObject In wbemObjectSet51Testing软件测试网 r4r\i
Q Z"v
WScript.Echo "Name: " & wbemObject.Name & "," & _51Testing软件测试网Q O_P B
" Handle: " & wbemObject.Handle & vbCrLf & _
JE*u5o:A0" Process ID: " & wbemObject.ProcessID & vbCrLf & _51Testing软件测试网/Q9t oMw#\ }
"Thread Count: " & wbemObject.ThreadCount & vbCrLf & _51Testing软件测试网9JQea%H_:d
hX#t-X
"CSName:" & wbemObject.CSName51Testing软件测试网
`&K5ne(w.M

4LG2EE"s0Next