// В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. // Для этого кластера получается список информационных баз, который затем обходится в цикле. Соединитель = Новый COMObject("V81.COMConnector"); ИмяМашины = "SERVANT"; Порт = "1540"; СтрокаСоединения = "TCP://" + ИмяМашины + ":" + Порт; СоединениеСАгентом = Соединитель.ConnectAgent(СтрокаСоединения); МассивКластеров = СоединениеСАгентом.GetClusters(); // получается первый массив кластера. ОписаниеКластера = МассивКластеров.GetValue(МассивКластеров.GetLowerBound()); // в случае если определены администраторы кластера, должны быть указаны данные о логине. СоединениеСАгентом.authenticate(ОписаниеКластера, " ", " "); МассивБаз = СоединениеСАгентом.GetInfoBases(ОписаниеКластера); МаксимальныйИндекс = МассивБаз.GetUpperBound(); Для ТекущийИндекс = МассивБаз.GetLowerBound() По МаксимальныйИндекс Цикл ОписаниеБазы = МассивБаз.GetValue(ТекущийИндекс); Сообщить(ОписаниеБазы.Descr); Сообщить(ОписаниеБазы.Name); КонецЦикла;