[其他] [已解决]批处理怎样检测某程序是否运行，如没有则发送邮件通知？

jijo

求助，我现在这样一个问题。
在某台服务器上，有运行一个程序（AB.EXE）
因为特殊原因，这个程序时常会异常退出。这样就影响到了日常工作。
现在我想通过批处理来定时检测这个AB程序是否在进程中正常运行。
如果有在运行，该批处理不做任何动作退出即可。
如果该程序退出，没有运行，则需要批处理发封邮件给指定邮箱。告知相关人员程序出错，需要及时检查。。
小弟在此多谢各位了。

tasklist /nh|find /i "QQ.exe"
if ERRORLEVEL 1 (start D:\1.vbs) else (exit)
复制代码

判断QQ是否在运行，不在的话就运行1.VBS执行发邮件通知·

1.VBS的代码如下：

 
Const WshRunning = 0
Set objEmail = CreateObject("CDO.Message")
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig")
CurrentTime=Hour(Now)&"："&Minute(Now)&"："&Second(Now)&"--"
Do While objExec.Status = WshRunning
        WScript.Sleep 100
Loop
If objExec.ExitCode = 0 Then
        Call SendMail("user@163.com","user2@163.com",CurrentTime &"非正常运行~",_
        CurrentTime & "请检查~","smtp.163.com","user","Password")
End If
        
Sub SendMail(strFrom,strTo,strSubject,strBody,strSMTPServer,strUser,strPassword)
        objEmail.From = strFrom '发件人
        objEmail.To = strTo '收件人
        objEmail.Subject = strSubject '主题
        objEmail.Textbody = strBody '内容
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
                strSMTPServer
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser '用户名
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword '密码
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '明文验证
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        objEmail.Configuration.Fields.Update
        objEmail.Send
End Sub
复制代码

[ 本帖最后由 jijo 于 2009-12-21 22:31 编辑 ]

jijo

谢谢版主加分鼓励。
嘿嘿··

jijo

是的·其实非常的简单。昨晚已经调试成功了~哈哈~~

 
tasklist /nh|find /i "QQ.exe"
if ERRORLEVEL 1 (start D:\1.vbs) else (exit)
复制代码

判断QQ是否在运行，不在的话就运行1.VBS执行发邮件通知·

[ 本帖最后由 jijo 于 2009-12-21 10:52 编辑 ]

bluewing009

使用tasklist 判断存在即可。

jijo

嗯，刚刚我发的那个VBS脚本就是如果运行出错就发邮件通知.将错误消息发送给用户.如果运行成功也发一个成功邮件给用户.
这样正确错误的邮件都发送给用户，如果定时间隔短些，那数量就相当多了。

目前先需要解决的问题是，判断程序AB.EXE是否在运行，如果程序在运行批处理退出不做任何操作，如果程序不在进程中，则发送邮件通知。

呵呵~研究ing...

Batcher

发邮件大部分都用类似的VBS脚本，可以在微软的网站上找到例子：
http://www.microsoft.com/china/t ... center/default.mspx

jijo

 
Const WshRunning = 0
Set objEmail = CreateObject("CDO.Message")
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig /al")
Do While objExec.Status = WshRunning
 WScript.Sleep 100
Loop
If objExec.ExitCode = 0 Then
 Call SendMail("user@163.com","user@hotmail.com","命令执行成功",_
 "命令执行成功","smtp.163.com","user","password")
Else
 strErrorMsg = objExec.StdOut.ReadAll
 Call SendMail("user@163.com","user@hotmail.com;user@163.com","命令执行失败",_
 strErrorMsg,"smtp.163.com","user","password")
End If
 
Sub SendMail(strFrom,strTo,strSubject,strBody,strSMTPServer,strUser,strPassword)
        objEmail.From = strFrom '发件人
        objEmail.To = strTo '收件人
        objEmail.Subject = strSubject '主题
        objEmail.Textbody = strBody '内容
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
                strSMTPServer
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser '用户名
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword '密码
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '明文验证
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 '加密连接            
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        objEmail.Configuration.Fields.Update
        objEmail.Send
End Sub
复制代码

这个是我找到的，是vbs脚本~大家参考参考哈~
谢谢管理员给的例子，我研究去咯~

[ 本帖最后由 jijo 于 2009-12-20 23:17 编辑 ]

Batcher

参考：VBS判断指定日志文件是否定时更新并发送邮件通知
http://bbs.bathome.net/thread-5972-1-1.html

bluewing009

只要运行一次就退出即可

jijo

原帖由 Batcher 于 2009-12-20 22:40 发表
参考：批处理发送飞信到手机
http://bbs.bathome.net/thread-6820-1-1.html

哇塞，管理员都来了。呵呵。。
我想实现的功能就是监控某程序是否在运行，没运行就发封邮件通知就好了。。
飞信的功能是好。但是如果半夜程序挂了，那不是飞信不停的发短信了？

Batcher

参考：批处理发送飞信到手机
http://bbs.bathome.net/thread-6820-1-1.html

jijo

哈哈，斑竹怎么拉哟…

bluewing009

.......................  代码 只能你自己写哦~~  

   真不行  把斑竹拉来。

jijo

各位高手，帮帮小弟俺丫…(>_<)

jijo

嗯，谢谢楼上的回复。那你能否提供下代码文件，我参考一下…(^-^)