Макросы VBA Excel — Страница 19

Function Ping(ByVal addr$) As Boolean
    On Error Resume Next
    Ping = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" & addr$ & "'").ItemIndex(0).StatusCode = 0
End Function

Function InetAvailable() As Boolean
    InetAvailable = Ping("bing.com"): If Not InetAvailable Then InetAvailable = Ping("google.com")
End Function

Sub TestPingFunction()
    If Ping("ComputerName") Then ПутьКПапке = "\\ComputerName\files"
    If Ping("ya.ru") Then MsgBox "Интернет доступен!"
    If Not Ping("192.168.0.2") Then MsgBox "Компьютер с IP адресом 192.168.0.2 недоступен в сети!"
End Sub