'采用微软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服务的要监控的服务》恢复选项卡，第二次失败，运行一次程序，调用这个脚本，实现监控功能