Не сервера предприятия.

Ап.

Ап.

3-х звенка на то и создана в числе прочего, шобы имя сервера было затруднительно узнать.

(0) А на фига?

(0)а для чего?

   Попытка
       Структура = Новый Структура("Тип, Сервер, База, SQlсервер, SQlБаза, Файл, Пользователь, Пароль, SQLOLEDB,ADODB");
       СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
       СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", Символы.ПС);
       Стр1 = СтрПолучитьСтроку(СтрокаСоединения, 1);
       Стр2 = СтрПолучитьСтроку(СтрокаСоединения, 2);
       Если Лев(Стр1, 4) = "Srvr" Тогда
           Структура.Тип = "Сервер";
           Структура.Сервер = Сред(Стр1, 7, СтрДлина(Стр1) - 7);
           Структура.База = Сред(СтрПолучитьСтроку(СтрокаСоединения, 2), 6, СтрДлина(Стр2) - 6);
           //подсоединяемся к базе на сервере для определения пароля и пользователя
           COMConnector = Новый COMОбъект("V8.COMConnector");
           Server = COMConnector.ConnectServer(Структура.Сервер);
           Server.AddAuthentication(СокрЛП(Пользователь),Пароль);
           ArrayIB = Server.GetInfoBASes();
           Для Каждого IB Из ArrayIB Цикл
               Если ВРег(IB.Name)<> ВРег(Структура.База) Тогда
                   Продолжить;
               Иначе
                   Структура.SQlсервер=ib.DBServerName;
                   Структура.SQlБаза=ib.DBName;
                   Структура.Пользователь=ib.DBUser;
                   Структура.Пароль=ib.DBPASsword;
                   Структура.SQLOLEDB="Provider=SQLOLEDB;Password="+ib.DBPASsword+";Persist Security Info=True;User ID="+ib.DBUser+";Initial Catalog="+ib.DBName+";Data Source="+ib.DBServerName;
                   Структура.ADODB="Driver={SQL Server};Server=" + ib.DBServerName + ";Uid=" + ib.DBUser + ";Pwd=" + ib.DBPASsword + ";DataBASe=" + ib.DBName + ";" + "Pwd=" + ib.DBPASsword +";";    
                   Прервать;
               КонецЕсли;    
           КонецЦикла;        
           Если ib.DBName="" Тогда
               ВызватьИсключение(" - не удалось получить доступ к серверу 1с");
           КонецЕсли;
       Иначе
           Структура.Тип = "Файл";
           Структура.Файл = Сред(Стр1, 6, СтрДлина(Стр1) - 6);
       КонецЕсли;    
       Возврат Структура;
   Исключение
        Сообщить("Ошибка получения параметров ИБ на сервере приложения 1с
       |"+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
       Соединение_ОткрытьНастройки();
       Возврат False
   КонецПопытки;

(5) Не, ну если изнутри SQL-ной базы, то и кода столько не надо, понятно что сервер в СтрокеСоединения имеется...

(6) не ну это понятно, ну не просто же ему имя сервера нужно. Скорее всего он хочет к нему подключится.:)) И что то там натворить....8))

(4), (5) Спасибо. Для прямого запроса.

(8) велосипед изобретен смотри Enterprise Integrator

(9) Это что?

(9) хорош, пиарить свой интегратор )

(11) почему он тебе не понравился?, он не подходит для прямых запросов?

(10) v8: Enterprise Integrator 0.33 Beta (новые возможности интеграции в 8.0)

(12) да я шучу, нормальная штука... Хотя то же в некотором роде велосипед... )

(14) вот так бы сразу.... :))

(13) Спасибо.

(5) У этого кода есть одна маленькая проблемка. Может быть ситуация, когда 1С-ая база открывается, а с сервером соединиться не получается...

(17) правильно... если ты не знаешь админского пароля

(18) Даже зная пароль можно не найти сервера

(19) и в каких же это случаях?

(20) Например, когда SQL сервер стоит в другой сети...

ты про SQL что ли? или про 1с сервак?

(22) Я про то, что Ваш код в (5) может получать имена серверов, к которым нельзя соединиться, даже если знаешь правильные логины.

(23) а кокой код тогда будет правильным?

(24) подключение к базе должно осуществляться только на сервере предприятия. а значит и все обращения у базе должны выполняться только из кода, который выполняется на сервере, а не на клиенте.