|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
// В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. // Для этого кластера получается список информационных баз, который затем обходится в цикле. Соединитель = Новый COMObject("V81.COMConnector"); ИмяМашины = "SERVANT"; Порт = "1540"; СтрокаСоединения = "TCP://" + ИмяМашины + ":" + Порт; СоединениеСАгентом = Соединитель.ConnectAgent(СтрокаСоединения); МассивКластеров = СоединениеСАгентом.GetClusters(); // получается первый массив кластера. ОписаниеКластера = МассивКластеров.GetValue(МассивКластеров.GetLowerBound()); // в случае если определены администраторы кластера, должны быть указаны данные о логине. СоединениеСАгентом.authenticate(ОписаниеКластера, " ", " "); МассивБаз = СоединениеСАгентом.GetInfoBases(ОписаниеКластера); МаксимальныйИндекс = МассивБаз.GetUpperBound(); Для ТекущийИндекс = МассивБаз.GetLowerBound() По МаксимальныйИндекс Цикл ОписаниеБазы = МассивБаз.GetValue(ТекущийИндекс); Сообщить(ОписаниеБазы.Descr); Сообщить(ОписаниеБазы.Name); КонецЦикла; |
About the Author
