如果登录失败，请检查网站登录并通过电子邮件向所有者发送vbscript

Question

我想写一个会打开网站的脚本，登录，如果登录将无法给我发电子邮件。我想创建该脚本的原因是因为它是确保我的登录服务在线的唯一方法。我将每隔几分钟将该脚本添加为计划任务，以确保我的网站的登录部分已经过检查并且有效。

虽然我对vbscripts不是很好，但是我设法使用大量的研究创建了将打开IE并登录我网站的脚本。

WScript.Quit Main

Function Main
  Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
  IE.Visible = True
  IE.Navigate "http://url.com/Login.aspx"
  Wait IE
  With IE.Document
    .getElementByID("ctl00_MPH_txtUserName").value = "myusername"
    .getElementByID("ctl00_MPH_txtPassword").value = "mypassword"
    .getElementByID("ctl00_BPH_btnEnterClick").Click()
  End With
End Function
Sub Wait(IE)
Do
    WScript.Sleep 500
  Loop While IE.ReadyState < 4 And IE.Busy
End Sub

我现在需要的是，如果登录失败，请将此脚本通过电子邮件发送给我。每次登录失败时，都会显示＆＃34;电子邮件地址或密码不正确。＆＃34;字符串，如果这将有所帮助。

感谢您的时间！