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