Приветствую Вас ГостьСреда, 18.09.2019, 16:55

В помощь админу


Каталог статей

Главная » Статьи » Windows » Скрипты

Отправка почты с помощью скрипта VBS

С помощью обычного скрипта VBS можно спокойно отправлять электронную почту, что я уже давно использую в своих скриптах, таких как Автоматическая проверка оставшегося места на диске, Адапптированный скрипт автоматического избавления от устаревших архивов, Скрипт автоматически выкидывающий пользователей из терминальной сессии. Часть 2я и другие. Но в данной статье я хочу акцентировать внимание, что даже простая отправка почты нам может пригодиться в администрировании.

Самый простой пример - с помощью почты можно отправить привет от сервера админу словами, что сервер был успешно включен, а админ уже должен сам подумать и проверить, а почему это у него этот сервер ему шлёт такой привет. Самый простой вариант - непредвиденное отключение электричества. В моём случае это частый случай, так как в одном из моих филиалов с постоянной периодичностью происходит непредвиденное отключение электроэнергии и теперь я всегда знаю, когда у них снова всё завелось.

Самое главное. Для того, чтобы можно было отправлять почту с помощью скрипта, необходимо иметь действующую почту на любом почтовом хостинге или сервере.

Вот он сам скрипт. Он очень простой по сравнению с вышеупомянутыми.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Скрипт, который умеет отправлять электронную почту  '
'   Скрипт написал Анчуров Олег Владимирович в 2015 году. Версия 1.   '
'                  Скрипт
ServerPowerIsOn.vbs                        '
'                   Сайт http://ithelp.moy.su                         '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

on error resume next

Dim nwo, cmpname
Set nwo = CreateObject("WScript.Network")
CmpName = LCase(nwo.ComputerName)

Dim objEmail, MSG

MSG = "Сервер " + CmpName + " был автоматически включен!" + chr(13) + chr(10) + chr(13) + chr(10)
MSG = MSG + "Сервер " + CmpName + " был автоматически включен! " + chr(13) + chr(10)
MSG = MSG + "Возможные причины останова сервера:" + chr(13) + chr(10)
MSG = MSG + "1. Был выключен и включен (или перезагружен) человеком." + chr(13) + chr(10)
MSG = MSG + "2. Был программный сбой." + chr(13) + chr(10)
MSG = MSG + "3. Был сбой электропитания." + chr(13) + chr(10)
MSG = MSG + "Для выяснения данного инцидента необходимодимо просмотреть логи событий..." + chr(13) + chr(10) + chr(13) + chr(10)
MSG = MSG + "Время/Дата формирования сообщения отчёта: " + CStr(Time) + "/" + CStr(Date) + chr(13) + chr(10)

Const EmailFrom = "bot@superpuperfirma.ru"         ' от кого будет отправляться e-mail
Const EmailPassword = "SuperPuperPassword"       ' пароль от e-mail отправителя
Const strSmtpServer = "smtp.superpuperfirma.ru" ' smtp сервер
Const EmailTo = "admin@superpuperfirma.ru"    ' Кому будет отправляться e-mail
Set objEmail = CreateObject("CDO.Message")

objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = "Сообщение от сервера " + CmpName + ": сервер был автоматически включен!" ' Тема письма
objEmail.Textbody = MSG
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing ' Чистим память.
Set nwo = Nothing      ' Чистим память.

Единственное что я в этот скрипт добавил от себя - это определение имени компьютера/сервера, поэтому этот скрипт можно без какой-либо адаптации смело использовать для своих нужд.

И самое главное. Если всё же захотите использовать его как оповещатель включения сервера, то Вам также придётся создать задание с триггером "при включении компьютера".

Жизнь админа должна быть проще!

Категория: Скрипты | Добавил: isz (06.10.2015)
Просмотров: 2672 | Теги: vbs, почта, email, отправка почты, vbscript, Скрипт | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Категории раздела
Active Directory [10]
DHCP [1]
Windows [12]
Wins [1]
Групповая политика [2]
Программы [2]
Резервное копирование [5]
Сеть [5]
Скрипты [25]
Терминальный сервер [6]
Почта [5]
Реестр [1]
Реестр Windows
Командная строка [6]
CMD: Командная строка Windows
Поиск
Форма входа
Наш опрос
Оцените мой сайт
Всего ответов: 108
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика