Вывод значения сервера COM подключения на форму

[sudosu]

Здравствуйте!

Помогите разобраться, пожалуйста. Есть ком подключение к базе, есть значения, которые прописаны вручную. Нужно вывести значения Сервер и ИмяБазы на форму для редактирования.



&НаКлиентеНаСервереБезКонт екста
Функция УстановитьCOMСоединение(Сер вер,ИмяБазы,Пользователь,П� �роль,ЧерезПриложение = Ложь)
#Если Сервер Тогда
УстановитьПривилегированн ыйРежим(Истина);
#КонецЕсли
Попытка
Если Не ЧерезПриложение Тогда
Соединение = Новый COMОбъект("V83.ComConnector");
УдалённаяБаза = Соединение.Connect("Srvr=""" + Сервер + """;Ref=""" + ИмяБазы + """;Usr=""" + Пользователь + """;Pwd=""" + Пароль + """;");
Возврат УдалённаяБаза;
Иначе
Соединение = Новый COMОбъект("V83.Application");
Если Соединение.Connect("Srvr=""" + Сервер + """;Ref=""" + ИмяБазы + """;Usr=""" + Пользователь + """;Pwd=""" + Пароль + """;") Тогда
Соединение.Visible = Истина;
Возврат Соединение;
Иначе
Возврат Неопределено;
КонецЕсли;
КонецЕсли;
Исключение
Сообщить(ОписаниеОшибки());
Сообщить("Ошибка при подключении к удалённой базе.");
Возврат Неопределено;
КонецПопытки;
КонецФункции

&НаКлиенте
Функция ОтправитьЗаказНаКлиенте(И� �яПользователя)
БазаДанных = УстановитьCOMСоединение("192.168.0.100:1555","БАЗА_1С",ИмяПользователя,"123123123",Ложь);
Если БазаДанных = Неопределено Тогда
Возврат ОтправитьЗаказНаСервере(И� �яПользователя);
Иначе
Попытка
ВыполнитьОтправкуЗаказа(Б� �заДанных,ЭтаФорма);
Возврат Истина;
Исключение
Сообщить(ОписаниеОшибки());
Возврат Ложь;
КонецПопытки;
КонецЕсли;
КонецФункции