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

wgmlzj

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

谢谢！

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

Batcher

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

rat

If WScript.Arguments.Count = 0 Then
	RunExe "cmd /k start /b " _
		& "cscript //nologo " & """" & WScript.ScriptFullName & """" & " MonitorCreation & " _
		& "cscript //nologo " & """" & WScript.ScriptFullName & """" & " MonitorDeletion"
	WScript.Quit
End If

Execute WScript.Arguments(0)



Sub RunExe(strPath)
	Dim objWSH
	Set objWSH = CreateObject("WScript.Shell")
	objWSH.Run strPath
	Set objWSH = Nothing
End Sub

Sub MonitorCreation()
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" _
	    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colMonitoredProcesses = objWMIService. _        
	    ExecNotificationQuery("select * from __instancecreationevent " _ 
	        & " within 1 where TargetInstance isa 'Win32_Process'")
	i = 0
	
	Do While i = 0
	    Set objLatestProcess = colMonitoredProcesses.NextEvent
	    Wscript.Echo Now() & "   Process Created: " & vbCrLf & objLatestProcess.TargetInstance.CommandLine & vbCrLf
	Loop
End Sub

Sub MonitorDeletion()
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" _
	    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colMonitoredProcesses = objWMIService. _
	    ExecNotificationQuery("select * from __instancedeletionevent " _ 
	            & "within 1 where TargetInstance isa 'Win32_Process'")
	i = 0
	
	Do While i = 0
	    Set objLatestProcess = colMonitoredProcesses.NextEvent
	    Wscript.Echo Now() & "   Process Deleted: " & vbCrLf & objLatestProcess.TargetInstance.CommandLine & vbCrLf
	Loop
End Sub
复制代码

wgmlzj

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

jellyhk

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