Enisey21
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!:)
Нужно реализовать отправку электронной почты, отталкиваясь от определенных условий.
Суть такова. Телнет стучится почтовому серверу. Если отклик есть, то все хорошо. должно отправится письмецо оповещающие о том, что сервер дышит.
Если отклика нет, то должно отправится письмецо оповещающие о том, что сервер не дышит.
Вот такой вот скриптик нужен.
Скрипт по отправке электронной почты уже имею, вроде даже разобрался. Я в этом деле совсем зеленый.
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Mihail.Krylov@enisey.msk.ru"
objEmail.To = "it@enisey.msk.ru"
objEmail.Subject = "test"
objEmail.Textbody = "тест34343443434"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "111.111.111.21"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Так же есть еще вот такой скрипт, который открывает батник Телнет. Хотелось бы сделать так, что бы Телнет после открытия сам закрывался.
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\Telnet(MKV).cmd",,False
И как все это добро склеить вместе, что бы выполнялись мои условия так что бы еще и работало все)
Спасибо тому, кто поможет) |
