莫等闲

caizhengzhu

管理员

DELL服务器设置温度邮件报警

标题：关于DELL服务器设置温度报警

公司机房的空调的电源没有经过UPS，所以在每次停电后都需要手动开启空调，以前寻找过空调
自动开启的方式，但无果。

昨天在网络找到一篇关于设置dell服务器温度报警的文章
http://hnwhb.blog.163.com/blog/static/1 … 133229714/

按照其中的设置后发现不能正常发送邮件报警，经过查找后找到了原因：
1.最后设置的执行程序应该调用wscript.exe程序而不是cmd.exe程序，所以路径应该设置为
c:\windows\system32\wscript.exe  d:\WarningMail.vbs   且需要去掉 /c

2.vbs 脚本程序利用CDO发送邮件可能有点问题，我换成以下的两种方式均可：

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

NameSpace="http://schemas.microsoft.com/cdo/configuration/"
set Email=CreateObject("CDO.Message")
Email.From="××××××@jsmail.com.cn"
Email.To="××××××@188.com"
Email.Subject="机房温度报警"
Email.Textbody="机房温度高过，可能空调已经关闭"
with Email.Configuration.Fields
.Item(NameSpace&"sendusing")=2
.Item(NameSpace&"smtpserver")="mail.jsmail.com.cn" '发件人发信邮件服务器
.Item(NameSpace&"smtpserverport")=25
.Item(NameSpace&"smtpauthenticate")=1
.Item(NameSpace&"sendusername")="××××××@jsmail.com.cn" '
.Item(NameSpace&"sendpassword")="××××××"
.Update
end with
Email.Send

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
   
'本节提供了远程SMTP服务器的配置信息。
   
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/sendusing") = 2 '使用网络来发送邮件（通过网络的SMTP）。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/smtpserver") = "mail.jsmail.com.cn" '您的SMTP服务器
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/smtpusessl") = False '于连接中使用SSL（True或False）
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/smtpconnectiontimeout") = 60
   
' 如果您的发送邮件服务器需要SMTP验证，注释下面的线路和使用一个有效的电子邮件地址和
密码。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/smtpauthenticate") = 1 '基本（clear-text）身份验证
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/sendusername") ="******@jsmail.com.cn"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configurat
ion/sendpassword") ="******" '您的电子邮件地址密码
   
ObjSendMail.Configuration.Fields.Update
   
'完成远程SMTP服务器的配置
   
ObjSendMail.To = "******@188.com;" '收件人地址
ObjSendMail.Subject ="测试邮件"'标题

ObjSendMail.From = "******@jsmail.com.cn" '请确保这与上述的sendusername是相同
   
'我们正在发送文字邮件..简单地切换以下代码来发送HTML电子邮件
'ObjSendMail.HTMLBody = "this is the body" '本文
ObjSendMail.TextBody = "test" '电子邮件本文
   
ObjSendMail.Send

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－