使用VB脚本来监控服务并发送邮件

2018/6/12 16:10:17      点击:
'采用微软CDO.Message组件发信,无需安装任何软件
Set cdo = CreateObject("CDO.Message")
strCfg = "http://schemas.microsoft.com/cdo/configuration/"
With cdo
'设置邮件内容采用GB2312编码,避免中文乱码问题。
.BodyPart.Charset = "gb2312"
.BodyPart.Fields.Item("urn:schemas:mailheader:content-transfer-encoding") = "base64"
.BodyPart.Fields.Update
'设置发信人名字
.Sender = "xxxxxx"
'设置发信人邮件
.From = "xxxxxxx"
'设置收信人邮箱地址
.To = "xxxxxxx"
.Fields("urn:schemas:mailheader:X-Priority") = 1
.Fields.Update
'设置邮件标题
.Subject = "DBMAIL服务故障通知"
'设置邮件内容
.TextBody = "你的DBMAIL服务进程已停止,请速处理,以免影响邮件正常收发!"
.Configuration(strCfg & "SendUsing") = 2
'设置SMTP发信登录的邮件服务器
.Configuration(strCfg & "smtpserver") = "xxxxx"
'设置SMTP登录发信的账户
.Configuration(strCfg & "sendusername") = "xxxxxx"
'设置登录账户的对应密码
.Configuration(strCfg & "sendpassword") = "xxxxxx"
.Configuration.Fields.Update
.send

End With

以上是发送邮件的代码,保存为.vbs的后缀,在WINDOWS服务的要监控的服务》恢复选项卡,第二次失败,运行一次程序,调用这个脚本,实现监控功能