.Item(schema
& \"sendusing\") = 2 \'使用网络上的SMTP服务器而不是本地的SMTP服务器
.Item(schema
& \"smtpserver\") = \"smtp.163.com\" \'SMTP服务器地址
.Item(schema
& \"smtpauthenticate\") = 1 \'服务器认证方式
.Item(schema
& \"sendusername\") = Email_From \'发件人邮箱
.Item(schema
& \"sendpassword\") = Password \'发件人邮箱密码
.Item(schema
& \"smtpserverport\") = 25 \'SMTP服务器端口
.Item(schema
& \"smtpusessl\") = True \'是否使用SSL
.Item(schema
& \"smtpconnectiontimeout\") = 60 \'连接服务器的超时时间
.Update \'更新设置
End With
CDO.Send \'发送邮件
msgbox \"Email sent!\"
这里注明一下:如果smtp服务器采用匿名认证,则不需要密码,服务器认证方式为0,ssl认证为false
5.
如果发送邮件的电脑不是本机电脑,需要远程调用,则需要使用psexec工具,可以在网上下载,使用以下命令:
cd
cd pstool
psexec \\abc -u abcadministrator -p abcdefg d:email.exe –i
这个命令可以远程执行email.exe命令,前期是要获取管理员权限。
6.
对于远程的电脑是否死机,可以使用ping的方法来测试,如ping不通,则发送警报
附上已经成功的bat文件:
cd
echo
%date% %time% >>192.168.1.1.txt
ping 192.168.1.1|findstr
\"expired\">nul&&echo 192.168.1.1network>>192.168.1.1.txt
|| start \"\" \"c:batwarning-email.bat\"
ping 192.168.1.1 -n 4 >>abc.txt || start \"\"
\"c:batwarning-email.bat\"
注明: