VB脚本/批处理文件,用于监视和发送计算机/服务器运行进程的邮件

时间:2014-01-16 13:06:01

标签: email batch-file vbscript monitor taskmanager

我正在寻找监视计算机/服务器中运行的进程或进程(在任务管理器中可见)的解决方案,并且手动或自身杀死它应该生成并警告邮件到指定的电子邮件ID,如果可能的话,特别针对特定的任务进程。 / p>

请帮助我,我尝试了一些选项,但只能列出进程列表,但无法生成服务终止邮件。

1 个答案:

答案 0 :(得分:0)

以下是基于__InstanceDeletionEvent的WMI事件观察程序,它会告诉您何时通过wscript弹出窗口关闭notepad.exe并在命名时重启自己“Notepad_Emailer.vbs”

strComputer = "."
Set objSWbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & "\\" & strComputer & "\root\cimv2")
Set objEventSource = objSWbemServices.ExecNotificationQuery( "SELECT * FROM __InstanceDeletionEvent " & "WITHIN 1 " & "WHERE TargetInstance " & "ISA 'Win32_Process' " & "AND TargetInstance.Name = 'notepad.exe'")
Set objEventObject = objEventSource.NextEvent()
set kdshell = createobject("WScript.Shell")
Wscript.Echo "NOTEPAD WAS CLOSED, REPLACE THIS LINE WITH YOUR EMAIL SCRIPT"
kdshell.Run "Notepad_Emailer.vbs",0,false

将此与您的电子邮件片段相结合,您就完成了所有设置。