电脑重启自动发送邮件及微信通知

新建文本文档写入以下内容，另存为vbs文件，将文件放入开始-启动-程序文件夹
邮件使用smtp发送，微信消息推送使用server酱
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件人"
Email.To = "收件人"
Email.Subject = "电脑已重启，请注意查看"
m = Minute(Now)
s = Second(Now)
If len(m) = 1 Then m = "0" & m
If len(s) = 1 Then s = "0" & s
Email.Textbody = "电脑已重启，请注意查看" + vbCrLf +"重启时间："& Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日" & Hour(Now) & ":" & m & ":" & s

With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.qq.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "你的邮箱"
.Item(NameSpace&"sendpassword") = "QQ邮箱的授权码"
.Update
End With
Email.Send
strURL ="https://sc.ftqq.com/你自己的key.send?text=主人服务器又挂掉啦~"
Set IE = CreateObject("InternetExplorer.Application")
IE.visible =false
IE.navigate strURL