【练习题】VBS判断指定日志文件是否定时更新并发送邮件通知

Batcher

假设有一个应用程序C:\test.exe在不断地向日志文件C:\test.log里面写入运行记录、报错信息等。

要求写一个VBS脚本：每隔10分钟检测一次C:\test.log，如果发现该文件超过15分钟没有更新，就认为C:\test.exe死掉了，这时需要重启C:\test.exe，并发送邮件给指定用户batcher@bbs.bathome.net以实现报警功能。

Seter

On Error Resume Next
Dim f,d
Set f=CreateObject("Scripting.FileSystemObject").GetFile("C:\test.log")
Do
WScript.Sleep 600000
d=DateDiff("n",f.DateLastModified,Now())
If d>14 then
CreateObject("WScript.Shell").Run "C:\test.exe"
Send_mail
End If
Loop
Sub Send_mail()
MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "yonghuming@sina.com"
Email.To = "batcher@bbs.bathome.net"
Email.Subject = "报警"
Email.Textbody = "报警啦报警啦!"
With Email.Configuration.Fields
.Item(MS_Space&"sendusing") = 2
.Item(MS_Space&"smtpserver") = "smtp.sina.com"
.Item(MS_Space&"smtpserverport") = 25
.Item(MS_Space&"smtpauthenticate") = 1
.Item(MS_Space&"sendusername") = "yonghuming"
.Item(MS_Space&"sendpassword") = "mima"
.Update
End With
Email.Send
Set Email=Nothing
End Sub
复制代码

VBS不是很懂,可?

[ 本帖最后由 Seter 于 2009-10-4 07:47 编辑 ]

Seter

有点问题...每隔10分钟检测一次,超过15分钟没有更新,那就是连续三次一样咯?(就是20分钟没有更新)
还是直接判断文件修改时间?