求教VBS提示增多或减少正在运行的进程怎样写？

wgmlzj

用ＶＢＳ写，也可以用ＢＡＴ和ＶＢＳ结合起来写，用于实时监测进程变化的．(只需显示刚增加或减少的进程则可）
不是列出整个进程表（进程管理器）

谢谢！

[ 本帖最后由 wgmlzj 于 2008-10-29 12:19 编辑 ]

Batcher

增加或减少以哪个数值为基准？

rat

1. If WScript.Arguments.Count = 0 Then
   
2.         RunExe "cmd /k start /b " _
   
3.                 & "cscript //nologo " & """" & WScript.ScriptFullName & """" & " MonitorCreation & " _
   
4.                 & "cscript //nologo " & """" & WScript.ScriptFullName & """" & " MonitorDeletion"
   
5.         WScript.Quit
   
6. End If
   
7. 
   
8. Execute WScript.Arguments(0)
   
9. 
   
10. 
    
11. 
    
12. Sub RunExe(strPath)
    
13.         Dim objWSH
    
14.         Set objWSH = CreateObject("WScript.Shell")
    
15.         objWSH.Run strPath
    
16.         Set objWSH = Nothing
    
17. End Sub
    
18. 
    
19. Sub MonitorCreation()
    
20.         strComputer = "."
    
21.         Set objWMIService = GetObject("winmgmts:" _
    
22.             & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
    
23.         Set colMonitoredProcesses = objWMIService. _        
    
24.             ExecNotificationQuery("select * from __instancecreationevent " _
    
25.                 & " within 1 where TargetInstance isa 'Win32_Process'")
    
26.         i = 0
    
27.        
    
28.         Do While i = 0
    
29.             Set objLatestProcess = colMonitoredProcesses.NextEvent
    
30.             Wscript.Echo Now() & "   Process Created: " & vbCrLf & objLatestProcess.TargetInstance.CommandLine & vbCrLf
    
31.         Loop
    
32. End Sub
    
33. 
    
34. Sub MonitorDeletion()
    
35.         strComputer = "."
    
36.         Set objWMIService = GetObject("winmgmts:" _
    
37.             & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
    
38.         Set colMonitoredProcesses = objWMIService. _
    
39.             ExecNotificationQuery("select * from __instancedeletionevent " _
    
40.                     & "within 1 where TargetInstance isa 'Win32_Process'")
    
41.         i = 0
    
42.        
    
43.         Do While i = 0
    
44.             Set objLatestProcess = colMonitoredProcesses.NextEvent
    
45.             Wscript.Echo Now() & "   Process Deleted: " & vbCrLf & objLatestProcess.TargetInstance.CommandLine & vbCrLf
    
46.         Loop
    
47. End Sub

复制代码

wgmlzj

很好，很好，很有启发，谢谢！

jellyhk

厉害啊！
我看都没看懂！
不过我认为用进程比较就行了吧！
把开始的进程罗列！