Не срабатывает оповещение о недоступности серверов.
Вопрос
Ответы
Все ответы
-
Так и должно быть. Подписавшись на алерты от класса вы будете получать все алерты. Для получения только конкретных алертов нужно использовать скрипты. Я где-то здесь уже постил ссылку на скрипт.
PS.
наткнулся и на её русский перевод Это не совсем перевод. Скорее "по мотивам". Источников было несколько
-
Поскольку в скрптах я не силен, то эта задача вызвала определенные трудности
Тем не менее результат достигнут. Может кому понадобится:
Code SnippetOption Explicit
Dim colNamedArguments
Dim AlertDescription
Dim AlertSource
Dim AlertName
Dim AlertState
Dim objShell
Dim strBody
Dim SearchChar,MyPos
Dim WshShell,SMSbody
Dim objWMIService, objProcess, colProcessSearchChar = "HearBeat failure" 'здесь необходимо указать Alert Desccription'или его часть при котором будет отправляться SMS`каSet colNamedArguments = Wscript.Arguments.Named
Set objShell = CreateObject("Wscript.Shell")
AlertDescription = colNamedArguments("desc")
AlertName = colNamedArguments("alert")
AlertSource = colNamedArguments("source")
AlertState = colNamedArguments("state")strBody = "Alert Name: " & AlertName & ". Alert Source: " & AlertSource & ". Alert Description: " & AlertDescription & ". State: " & AlertState
SMSbody = """" & strBody & """"MyPos = InStr(1, AlertDescription, SearchChar, 1)
If MyPos<>0 then Call SendEMail
Public Function SendEmail
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files (x86)\Microsoft SMS Sender\smssender.exe"" /i /p:+7921******** /m:" & SMSbody
End Functionwscript.sleep 5000
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\localhost\root\cimv2")
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'SMSSender.exe'" )
For Each objProcess in colProcess
objProcess.Terminate()
NextWScript.QuitНе забудте поправить значение переменной SearchChar и номер телефона (+7921******** )Если кто разбирается в скритпах, буду рад услышать где и что сделано не такP.S. G14, в очередной раз спасибо за помощь!
