SMS-оповещение
Современные серверные решения становятся все более и более сложными, при этом
необходимо обеспечивать функционирование программ 24 часа в день и 7 дней в неделю.
Однако многие программы на сервере, особенно "самописные", не абсолютно надежны -
они могут содержать ошибки, приводящие к падению сервисов и к многочисленным жалобам
пользователей этих сервисов. Поэтому очень важно своевременно реагировать на
проблемы с сервером.
Как обеспечить скорейшее оповещение, если дежурный оператор отсутствует? Наилучшим
решением является оповещение об ошибке через SMS, поскольку мобильный телефон всегда
под рукой у ответственного за сервис сотрудника. Короткое сообщение доставляется мгновенно,
и получатель может прочитать его, даже если он не находится в офисе за компьютером.
Персональный SMS Сервер "Хедвинд" имеет API для отправки SMS через устройство GSM-связи.
Этот программный интерфейс может быть использован в языке сценариев Windows VBScript для
отправки коротких сообщений. Если у Вас еще не установлен Персональный SMS Сервер,
установите его с помощью этой инструкции.
Пример скрипта
Этот скрипт проверяет наличие процесса в памяти компьютера и отправляет SMS-оповещение
в случае его отсутствия.
Set objArgs = WScript.Arguments
' Имя сервера, на котором находится процесс
ServerName = "."
ProcessName = objArgs(0)
' Телефонный номер для отправки SMS
AdminPhone = "79111992948"
count=0
Set objWMIService = GetObject("winmgmts:\\" & ServerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
For Each objItem in colItems
' Wscript.Echo "Name: " & objItem.Name
if LCase(objItem.Name) = LCase(ProcessName) then
count=count+1
end if
Next
if count < 1 then
' Отправка оповещения!
Set objSMSDriver = CreateObject("HeadwindGSM.SMSDriver")
Set objMsg = CreateObject("HeadwindGSM.SMSMessage")
objMsg.To = AdminPhone
objMsg.Body = "ОШИБКА! Нет процесса '" + ProcessName + "'"
objSMSDriver.Connect()
objMsg.Send()
end if
Этот скрипт написан на языке сценариев VBScript. Скопируйте этот скрипт с веб-страницы,
вставьте его в текстовый редактор и сохраните под именем "monitor_process.vbs". После этого,
скрипт можно вызвать из командной строки:
cscript monitor_process.vbs "file.exe"
Здесь "monitor_process.vbs" - имя скрипта мониторинга, а "file.exe" - имя процесса в памяти.
Для настройки периодического мониторинга в Windows XP необходимо выполнить следующие шаги:
Внимание! Этот скрипт отправляет SMS каждый раз, когда проверяемый процесс отсутствует!
Вам необходимо реагировать быстро, чтобы предотвратить отправку нескольких SMS!
|