Доступен ли сервер? Проверка Ping из 1С: Предприятия

Код для 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 ,"Есть соединение","Нет соединения" ));
Рейтинг@Mail.ru