Соединение = CreateObject("ADODB.Connection");
Попытка
	Соединение.Open("Provider=SQLOLEDB.1;Password="""";Persist Security Info=True;User ID=sa;Initial Catalog=ruo;Data Source=localhost");
Исключение
	Сообщить("Не возможно подключиться к базе!", "!");
	Сообщить(ОписаниеОшибки(), "!");
	Возврат;
КонецПопытки;

Каталог = CreateObject("ADOX.Catalog");
Каталог.ActiveConnection = Соединение;

Таблицы = Каталог.Tables;
	
Для к=0 По Таблицы.Count-1 Цикл
	Сообщить(Таблицы.Item(к).Name);
КонецЦикла;

Представления = Каталог.Views;
	
Для к=0 По Представления.Count-1 Цикл
	Сообщить(Представления.Item(к).Name);
КонецЦикла;

Ключи = Таблица.Keys;
Для к=0 По Ключи.Count-1 Цикл
	Колонки = Ключи.Item(к).Columns;
	Для л=0 По Колонки.Count-1 Цикл
		Сообщить(Колонки.Item(л).Name);
	КонецЦикла;
КонецЦикла;