Код для 1С:Предприятия 8.2

 // Функция возвращает результат пинга указанного IPАдреса
Функция ping(IPАдрес)
   objShell = Новый COMОбъект("WScript.Shell") ;
    objScriptExec = objShell.Exec("ping.exe -n 1 " + IPАдрес) ;
    strPingResults = НРег(objScriptExec.StdOut.ReadAll());
    Возврат   Найти(strPingResults, "ttl=");
КонецФункции

//Обращаемся так:
ответ = ping("80.252.128.110");
Сообщить( ?(ответ >0 ,"Есть соединение","Нет соединения" ));