#Использовать irac

Процедура ВывестиИнформацию()
	
	ВыводитьСерверы			= Ложь;
	ВыводитьСерверыПодробно = Ложь;
	ВыводитьБазыПодробно    = Ложь;
	
	ВыводитьСеансы			= Истина;
	
//Сообщить( "Начало: " + ТекущаяДата() );
//Сообщить( " " );
	
	АдминкаКластера = Новый АдминистрированиеКластера( "test-srv-1c", 1545 );
	
	СписокКластеров	  = АдминкаКластера.Кластеры();
	ПараметрыКластера = СписокКластеров.ПараметрыОбъекта();
	
	Для Каждого Кластер Из СписокКластеров.Список() Цикл // Обходим список кластеров
		
		Сообщить( "Кластер: " + Кластер.Имя() );
		//Для Каждого ТекАтрибут Из ПараметрыКластера Цикл
			//Сообщить(ТекАтрибут.Ключ + " : " + Кластер.Получить(ТекАтрибут.Значение.ИмяПараметра));
		//КонецЦикла;
		Сообщить( " " ); //разделитель
		
		Если ВыводитьСерверы Тогда
		
			Серверы			  = Кластер.Серверы();
			ПараметрыСерверов = Серверы.ПараметрыОбъекта();
			
			СписокСерверов	  = Серверы.Список();
			Для Каждого Сервер Из СписокСерверов Цикл // Обходим список серверов

				Сообщить( "Сервер: " + Сервер.Имя() + " (" + Сервер.АдресСервера() + ":" + Сервер.ПортСервера() + ")");
				
				Если ВыводитьСерверыПодробно Тогда
					
					Для Каждого ТекАтрибут Из ПараметрыСерверов Цикл
						Сообщить(ТекАтрибут.Ключ + " : " + Сервер.Получить(ТекАтрибут.Значение.ИмяПараметра));
					КонецЦикла;
					
				КонецЕсли;
				
				Сообщить( " " ); //разделитель
				
			КонецЦикла;
			
		КонецЕсли;

		ИБ			= Кластер.ИнформационныеБазы();
		ПараметрыИБ = ИБ.ПараметрыОбъекта();
		
		СписокИБ	= ИБ.Список();
		Сообщить( "Всего ИБ: " + СписокИБ.Количество());

		Для Каждого ТекИБ Из СписокИБ Цикл // Обходим список информационных баз
			
			Сообщить( "База: " + ТекИБ.Имя() + " (" + ?(ТекИБ.ПолноеОписание(), "Полное", "Сокращенное") + " " + ТекИБ.Описание() + ")");
			
			Если ВыводитьБазыПодробно Тогда
			
				Для Каждого ТекАтрибут Из ПараметрыИБ Цикл
					Сообщить(ТекАтрибут.Ключ + " : " + ТекИБ.Получить(ТекАтрибут.Значение.ИмяПараметра));
				КонецЦикла;
				
			КонецЕсли;
			
			ТекБаза = Новый ИнформационнаяБаза( АдминкаКластера, Кластер, ТекИБ.Ид(), "ws", "" );
			ТекБаза.ОбновитьДанные(Истина);
			
			Если ВыводитьСеансы Тогда
			
				СписокСеансов = ТекБаза.Сеансы();
Сообщить( "Неопределено? " + ( СписокСеансов = Неопределено ) );
Сообщить( "ТипЗнч " + ТипЗнч( СписокСеансов ) );
Сообщить( "Количество сеансов: " + СписокСеансов.Количество() );
				Если СписокСеансов.Количество() > 0 Тогда
					
					Сообщить( "Количество сеансов: " + СписокСеансов.Количество() );
					
					ПараметрыСеанса = СписокСеансов.ПараметрыОбъекта();
Сообщить( "Параметры Сеансов получены" );
					
					Для Каждого ТекСеанс Из СписокСеансов Цикл
Сообщить( "В цикл списка Сеансов вошли" );
						
						Для Каждого ТекАтрибут Из ПараметрыСеанса Цикл
							Сообщить(ТекАтрибут.Ключ + " : " + ТекСеанс.Получить(ТекАтрибут.Значение.ИмяПараметра));
						КонецЦикла;
						
					КонецЦикла;
					
				КонецЕсли;
			
			КонецЕсли;
			
			Сообщить( " " ); //разделитель
			
		КонецЦикла;
		
	КонецЦикла;
	
//Сообщить( "Окончание: " + ТекущаяДата() );
	
КонецПроцедуры

//Лог = Логирование.ПолучитьЛог("ktb.lib.irac");
//Лог.УстановитьУровень(УровниЛога.Отладка);

ВывестиИнформацию()