Ping в 1С 8.3

Иногда необходимо программно проверить доступен ли удаленный компьютер с каталогом которого необходимо работать. Можно воспользоваться:

КаталогНаДиске = Новый Файл(ИмяКаталога);
Если КаталогНаДиске.Существует() Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;

Но выполнение этого метода занимает очень много времени. Быстрее просто пинговать удаленный компьютер.

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

Добавить комментарий

Ваш адрес email не будет опубликован.