helpf.pro
Регистрация
 0 
Распечатать

1С 7.x : Доступен ли сервер? Проверка 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 Тогда
Сообщить("Соединения нет");
КонецЕсли;
Разместил:   Версии: | 7.x | 8.x |  Дата:   Прочитано: 10800
 0 
Распечатать
Возможно, вас также заинтересует
Вставьте диск ИТС в дисковод и повторите операцию 0
найти строку и закомментировать: // проверка наличия диска ИТС Делт = КодСимв("Z")-КодСимв("A")+1; СтрокаИТС = Инфо.ПроверитьИмяФайла("1"); // Если ПустоеЗначение(СтрокаИТС)=1 Тогда // Сообщить("Вставьте диск ИТС в дисковод и...
Запуск 1С:Предприятия 7.7 под Windows 7 0
Установка 1С 7.7 под Windows 7 : Установщик 1С 7.7 является 16-битным приложением, а в Windows 7 отключена поддержка таких программ. Поэтому я взял другой установщик 1С, 32-битный(Ищите в интернет или спросите у Франчайзи). Запустил...
Использование регулярных выражений (RegExp) в 1С 1
Регулярные выражения (Regular Expressions) являются известным и мощным средством для поиска, тестирования и замены подстрок. Эта технология доступна и в 1С - через объект VBScript.RegExp. Нужный объект уже встроен в современные версии...
Как выгрузиться в EXCEL со сводными таблицами 0
Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи: Funny ): (1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру: Процедура...
Как установить/снять монопольный режим 0
Установленный монопольный режим позволит пользователю быть единственным пользователем базы, пока он установлен. Однако сам монопольный режим можно установить только в том случае, если на момент установки...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.