1С 7.x : Доступен ли сервер? Проверка Ping

 // Функция возвращает результат пинга указанного 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 ,"Есть соединение","Нет соединения" ));

   

 //пример от smaharbA

Адрес=СтрЗаменить(АдресСМССервера,"//","" "");

Адрес=СтрЗаменить(Адрес,"/","" "");

Адрес=СтрЗаменить(Адрес,"?","" "");

ШелСкрипт=СоздатьОбъект("WScript.Shell");

Если ШелСкрипт.Run("%comspec% /c ping -n 1 "+СтрПолучитьСтроку(Адрес,2),0,-1)<>0 Тогда

    Сообщить("Соединения нет");

КонецЕсли;