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

null@example.com (Elencheg) — Tue, 22 Mar 2011 11:13:08 +0000

Добрый день!
Помогите пож-та разобраться с написанием скрипта по мониторингу сети на основе 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

Серый форум — VBS: Мониторинг сети

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

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