1 Тема от Elencheg (изменено: Elencheg, 2011-03-22 15:14:13)

  • Elencheg
  • Участник
  • Неактивен

Тема: VBS: Мониторинг сети

Добрый день!
Помогите пож-та разобраться с написанием скрипта по мониторингу сети на основе ping
Идея такая: скипт пингует несколько ip, если понга нет-сообщение на экран и письмо по почте
Далее - если пропадает подряд второй пинг - то также сообщение на экран и письмо....

С сообщением на экран и письмом по почте проблем нет ) И с той ситуацией когда пинга нет вообще - тоже проблем....нет
Затрудняюсь отразить в скрипте тот вариант, когда пинг не стабильный........Кто знает как это реализовать ?

Const EMAIL_RECIPIENT = "admin@admin.ru"
strMachines = "dc1;dc2" 
aMachines = split(strMachines, ";") 
  
For Each machine in aMachines 
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._ 
        ExecQuery("select * from Win32_PingStatus where address = '"_ 
            & machine & "'") 
    For Each objStatus in objPing 
        If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 
            MsgBox "Уважаемый пользователь! " & "" & " Обнаружена проблема в работе сети!", 16, "ВНИМАНИЕ!" 
            EmailNotification
        End If 
    Next 
Next

2 Ответ от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Re: VBS: Мониторинг сети

Рецепты Windows Scripting: определение существования компьютера и состояния служб

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