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

        Else

            Avaible = True

        End If

    Next

End Function

' примеры вызова

Print Avaible("Vasya")

Print Avaible("192.168.0.1")