7.7 Подключение пользователя к базе

С помощью какой процедуры/функции можно подключить пользователя к базе?
И как можно заполнить поле в отсчете, взяв из справочника элементы?

Прошу вас,кто-нибудь,подскажите...
Необходимо написать программу,которая должна выполнять подключение пользователей к информационным базам,т.е. я на своем компьютере запускаю программу,а на комьютере у другого пользователя открывается нужная ему информационная база.
Ниже моя программа, в которой не хватает подключения пользователя к инфо базе. Т.е выводятся все пользователи из справочника пользователей, таким же образом выводятся инфо базы, выбираю пользователя,выбираю базу. А как подключить их, не знаю. Надеюсь кто-нибудь откликнется,если знает как дописать эту программу. :unsure:

Код:

//*********-Моя программа-***********
Перем ТекстФайла;
Перем Сч; 
Перем Текст; 
Перем ВыбЗнач; 
Перем Табл;
Перем Спр;
Перем Пользов; 
Перем Парам; 
Перем Знч; 
Перем СпособВыборкиПользователей;
Перем ВыбранноеПодразделение; 
Перем СпрПользователи; 
Перем ВыбПодразделение;
Перем ВыбПользователь; 
Перем Символ, Стр, Сч1, Сч2;

//------------------------------------------------------------------------------ 
Процедура ПриОткрытии() 

ЗапуститьПриложение(КаталогИБ() + "PL1CConfReg.exe /exp");
ЗапуститьПриложение(КаталогИБ() + "StartUp.");
//Combobux вывести всех пользователей из справочника пользователей


Спр = СоздатьОбъект("Справочник.Пользователи");

// Польз.УдалитьВсе();
Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() > 0 Цикл 
Пользов = Спр.Наименование;
// Польз.ДобавитьЗначение(Пользов); 
КонецЦикла; 

///=================================================================

// Символ = "лололожр";


// Для Сч = 2 по СтрДлина(Стр) Цикл
// 
// Если Символ = " " Тогда
// Возврат;
// КонецЕсли; 

// Сч1 = Сч1 + 1;
// Сообщить(Символ);
// Символ=Сред(Стр,Сч,1); 

// КонецЦикла; 

// Сообщить(Сч1); 
///================================================================= 
КонецПроцедуры 

//------------------------------------------------------------------------------
Процедура Сформировать() 


Если ФС.СуществуетФайл(КаталогИБ() + "Titles.ini") = 1 Тогда 

ТекстФайла = СоздатьОбъект("Текст"); 
ТекстФайла.Открыть(КаталогИБ() + "Titles.ini"); 
ИнфБазы.УдалитьВсе();


Для Сч=1 по ТекстФайла.КоличествоСтрок() Цикл

Текст = ТекстФайла.ПолучитьСтроку(Сч); 

Если (Лев(Текст,9) = "Загрузить") или (Лев(Текст,9) = "[Software") тогда
Продолжить;
КонецЕсли;


Для Сч1 = 1 по СтрДлина(Текст) Цикл

Символ=Сред(Стр,СтрДлина(Текст)-Сч1+1,1); 

Если Символ = "" Тогда
Возврат;
КонецЕсли; 

Сч2 = Сч2 + 1; 
КонецЦикла; 


ИнфБазы.ДобавитьЗначение(Прав(Текст,Сч2)); 

КонецЦикла;
КонецЕсли; КонецПроцедуры 
//------------------------------------------------------------------------------
Процедура Заполнить()

Спр = СоздатьОбъект("Справочник.Пользователи");
Спр.ВыбратьЭлементы();

Список = СоздатьОбъект("СписокЗначений");
// Список.ДобавитьЗначение(Знч);
ОткрытьФорму("Справочник.Пользователи", Список); 

КонецПроцедуры 

Процедура Запустить_Приложение()

перем Текст_Файла;
Если ПустоеЗначение("ИнфоБазы") = 1 Тогда
Сообщить("Выберите информационную базу");
КонецЕсли;
Если ПустоеЗначение("ВыбПользователя")=1 Тогда
Сообщить("Выберите пользователя");
КонецЕсли; 



Текст_Файла = СоздатьОбъект("Текст");

Текст_Файла.ДобавитьСтроку("Windows Registry Editor Version 5.00");
Текст_Файла.ДобавитьСтроку("");
Текст_Файла.ДобавитьСтроку("[HKEY_CURRENT_USERSoftware1C1Cv77.7Titles"+ИнфБазы+"StartUp]");
//Текст_Файла.ДобавитьСтроку("""+"UserName"=""+ВыбПользователя+""");
//Текст_Файла.ДобавитьСтроку("");

Текст_Файла.Записать(КаталогИБ()+"Выгрузка.reg");

ЗапуститьПриложение(КаталогИБ() + "Выгрузка.reg"); 
КонецПроцедуры

МОЖЕТ ПЕРЕСТАНЕМ ДУБЛИРОВАТЬ СООБЩЕНИЯ В РАЗНЫХ ТЕМАХ?

Я бы писал на Делфи: сервер у нас, и клиент у пользователя. Клиент висит в фоне, получает задания от сервера по сети и запускает 1С с нужной ИБ.