none
Проверка доступности хоста RRS feed

  • Вопрос

  • На входе в скрипт файл со списком хостов. Функция, ответственная за проверку доступности хоста:

    Function Reachable(strComputer) 'пингом проверяет доступность компьютера comp в сети

        On Error Resume Next
        Set objPing = GetObject("winmgmts:")._
            ExecQuery("select * from Win32_PingStatus where address = '"_
            & strComputer & "'")
        For Each objStatus in objPing
            If IsNull(objStatus.StatusCode) Or objStatus.StatusCode<>0 Then
                Avaible = False
            Else
                Avaible = True
        End If
        Next
    End function

     Доступными она считает только хосты из моей подсети (aaa.bbb.ccc.***). В списке на входе присутствуют хосты из другой подсети (aaa.bbb.ddd.***, aaa.eee.***.***). Все хосты пингуются.

    Подскажите, пожалуйста, как редактировать мою функцию, чтобы она считала доступными хосты из других подсетей? 

    10 октября 2012 г. 10:17

Все ответы

  • Вроде всё правильно, за исключением граматической ошибки в слове Available. И если ваша функция называется Reachable, то вам и нужно выходить из нее как Reachable = False; Else Reachable = True.


    Vladimir Zelenov | http://systemcenter4all.wordpress.com

    10 октября 2012 г. 13:35
  • У меня вот так:

    If Reachable(strComputer) Then 
        work(strComputer) 
        Else
        WScript.Echo strComputer & " " & "n/a"
     End If 

    10 октября 2012 г. 14:11