Имя: Пароль:
IT
Админ
Мониторинг доступности IP
0 Hazer79
 
07.02.13
13:49
Нужно мониторить доступность нескольких IP-шников под виндой. Желательно с ведением логов.
Есть ли такая приблуда ?
1 NS
 
07.02.13
13:50
(0) ping
2 NS
 
07.02.13
13:51
ping >> log
3 Hazer79
 
07.02.13
13:51
(1) ежу понятно. Так сейчас и идёт в нескольких окошках. Но хотелось бы более удобный инструмент.
4 NS
 
07.02.13
13:52
(3) Убрать окошки?
Интрумент для разбора лога?
5 Fedot200
 
07.02.13
13:54
Function Avaible(name) 'пингом проверяет доступность компьютера name в сети
   On Error Resume Next
   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
       ExecQuery("select * from Win32_PingStatus where address = '"_
       & name & "'")
   For Each objStatus in objPing
       If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
           Avaible = False
       WScript.Echo "Нет связи с IP:" + name
       Else
           Avaible = True
       'MsgBox "Есть связь!"
       WScript.Echo "Есть связи с IP:" + name
   End If
   Next
End function
WScript.Echo Avaible("Vasya")
WScript.Echo Avaible("192.168.100.28")
и сколько хочешь айпишников тесть
Закон Брукера: Даже маленькая практика стоит большой теории.