Код для 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 ,"Есть соединение","Нет соединения" ));
Доступен ли сервер? Проверка Ping из 1С: Предприятия
- Подробности
- Категория: Статьи про 1С