HelpF.pro

Доступен ли сервер? Проверка Ping

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


Код 1C v 7.x
 //пример от smaharbA
Адрес=СтрЗаменить(АдресСМССервера,"//","" "");
Адрес=СтрЗаменить(Адрес,"/","" "");
Адрес=СтрЗаменить(Адрес,"?","" "");
ШелСкрипт=СоздатьОбъект("WScript.Shell");
Если ШелСкрипт.Run("%comspec% /c ping -n 1 "+СтрПолучитьСтроку(Адрес,2),0,-1)<>0 Тогда
Сообщить("Соединения нет");
КонецЕсли;

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq7/view/327.html