VBS腳本
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "手機號碼@139.com"
Email.To = "手機號碼@139.com"
Email.Subject = "有人登陸Web服務器"
Email.Textbody = "注意檢查登陸者是否合法!"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.139.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "手機號碼"
.Item(NameSpace&"sendpassword") = "139郵箱密碼"
.Update
End With
Email.Send