Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.х
 // В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. 
      
// Для этого кластера получается список информационных баз, который затем обходится в цикле.

Соединитель = Новый COMObject("V81.COMConnector");

ИмяМашины = "SERVANT";
Порт = "1540";
СтрокаСоединения = "TCP://" + ИмяМашины + ":" + Порт;

СоединениеСАгентом = Соединитель.ConnectAgent(СтрокаСоединения);
МассивКластеров = СоединениеСАгентом.GetClusters();

// получается первый массив кластера.
ОписаниеКластера = МассивКластеров.GetValue(МассивКластеров.GetLowerBound());

// в случае если определены администраторы кластера, должны быть указаны данные о логине.
СоединениеСАгентом.authenticate(ОписаниеКластера, " ", " ");

МассивБаз = СоединениеСАгентом.GetInfoBases(ОписаниеКластера);
МаксимальныйИндекс = МассивБаз.GetUpperBound();

Для ТекущийИндекс = МассивБаз.GetLowerBound() По МаксимальныйИндекс Цикл
ОписаниеБазы = МассивБаз.GetValue(ТекущийИндекс);

Сообщить(ОписаниеБазы.Descr);
Сообщить(ОписаниеБазы.Name);

КонецЦикла;


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.