VBS设置关机自动发邮件

目的： 为了保证测试环境的服务器充分利用，所以我们需实现定期回收，

              在项目用户申请服务器时要求提供使用时间周期，我们将脚本部署在服务器上，定时回收。

操作方法：

以下文件统一保存在C:\tools\Email-alert\目录下

1. 打开文本文件将以下内容输入保存为sendmail.vbs文件

Set Email = CreateObject("CDO.Message")
Email.BodyPart.Charset = "GBK"
smtpuser="用户名"  '这里是你的SMTP 发送邮件的号码
pass="smtpuser密码"  '这里输入你的SMTP 账号密码
a="服务器租用时间已到期，将于10小时后自动关机，如有问题请尽快与管理员联系"   '在引号里面输入邮件内容
t="[email protected]"    '目的地址收邮件人

strName = "http://schemas.microsoft.com/cdo/configuration/"

Email.From = smtpuser&"@ourgame.com"
Email.To = t
Email.cc="[email protected]" '抄送
'[email protected] '密抄送
Email.Subject = "【测试服务器租用到期提醒】" '邮件的主题
Email.Textbody =a '内容
with Email.Configuration.Fields
.Item(strName & "sendusing") = 2
.Item(strName & "smtpserver") = "smtp server" ' 这里输入SMTP 服务器地址 
.Item(strName & "smtpserverport") = 25
.Item(strName & "smtpauthenticate") = 1
.Item(strName & "sendusername") = smtpuser
.Item(strName & "sendpassword") = pass
.Update
End With
Email.send

保存完成后，确保运行此脚本的计算机到SMTP 服务器 25 端口通讯是正常的。

2. 新建文本将shutdown -s -t 10 输入并保存为shutdownServer.bat

3. 新建文本输入以下内容并保存为settask.bat 文件

::建立发送邮件通知任务
schtasks /create /tn restartOS /ru "SYSTEM" /tr C:\tools\Email-alert\sendmail.vbs /sc once /st 14:00:00 /sd 2013/01/05

::建立shutdown 服务器任务
schtasks /create /tn restartOS /ru "SYSTEM" /tr C:\tools\Email-alert\shutdownServer.bat /sc once /st 14:30:00 /sd 2013/01/05

根据需求修改通知时间与关机时间，注意，要确保设置时间格式与系统当前时间格式一致。

4. 运行settask.bat 文件，系统将自动建立计划任务，邮件内容与接收者可随意更改。