//Пример 1 

v8 = CreateObject("V8.COMConnector");

//Строку подключения можно получить так:

Если ФайловаяБазаДанных Тогда

        СтрокаПодключения = "file='" + КаталогБазыДанных + "'; usr='" + Пользователь + "'; pwd='" + Пароль + "';";

Иначе

        СтрокаПодключения =  "srvr='" + Сервер + "'; ref='" + БазаДанных + "'; usr='" + Пользователь + "'; pwd='" + Пароль + "';";

КонецЕсли;

Попытка

        //Соединение = V8.Connect("Usr=""admin"";Pwd="""";File=""\\srvr\1C\V8\UPP""");

         Соединение = V8.Connect(СтрокаПодключения);

Исключение

        Сообщить(ОписаниеОшибки());

КонецПопытки;





//Пример 2

Функция ОткрытьСоединение(ОписаниеОшибки) Экспорт

     СтрокаПодключения = СформироватьСтрокуПодключения();

        Connector = Новый COMОбъект("V8.ComConnector");

    

    Попытка

        DataSource = Connector.Connect(СтрокаПодключения);

    Исключение

        ОписаниеОшибки = ОписаниеОшибки();

    КонецПопытки;

    

    Если DataSource = Неопределено И ПустаяСтрока(ОписаниеОшибки) Тогда

        ОписаниеОшибки = "Неизвестная ошибка подключения к 1С:Предприятие 8.0";

    КонецЕсли;

    

    Если Не ПустаяСтрока(ОписаниеОшибки) Тогда

        DataSource = Неопределено;

        Connector  = Неопределено;

    КонецЕсли;

    

    Возврат DataSource;    

КонецФункции



Функция СформироватьСтрокуПодключения()

    

    СтрокаПодключения = "";

    Если ЭтоСервер Тогда

        СтрокаПодключения = СтрокаПодключения + "Srvr=" + Сервер + ";Ref=" + Имя + ";";

    Иначе

        СтрокаПодключения = СтрокаПодключения + "File=""" + Сервер + """;";

    КонецЕсли;

    СтрокаПодключения = СтрокаПодключения + ?(ПустаяСтрока(Пользователь), "", "Usr="""  + Пользователь + """;");

    СтрокаПодключения = СтрокаПодключения + ?(ПустаяСтрока(Пароль), "", "Pwd="""  + Пароль + """;");

    

    Возврат СтрокаПодключения;    

КонецФункции

   

 // Функция определяет основные настройки базы 1с 77 расположенной в каталоге "КаталогБазы"

 //

 // функция возвращает соответствие определяющее структуру базы

 // "Имя MD файла"         - вместе с полным путем

 // "Имя Users файла"     - вместе с полным путем

 // "Имя Links файла"     - вместе с полным путем

 // "Имя DBA файла"         - вместе с полным путем

 // "Вариант установки"     - перечисление

 // "Имя SQL сервера"

 // "Имя SQL базы"

 // "Имя DBO пользователя"

 // "Пароль DBO пользователя"

 // "Контрольная сумма DBO"

 // "Каталог базы"

 

Функция ПолучитьПараметрыБазы77 (КаталогБазы, ПолучатьПараметрыSQL = Истина) Экспорт 

    Результат = Новый Соответствие;

    // заполним пустые значения

    Результат.Вставить("Имя MD файла", "");

    Результат.Вставить("Дата MD файла", неопределено);

    Результат.Вставить("Размер MD файла", 0);

    Результат.Вставить("Имя Users файла", "");

    Результат.Вставить("Имя Links файла", "");

    Результат.Вставить("Имя DBA файла", "");

    Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Ошибка);

    Результат.Вставить("Имя SQL сервера", "");

    Результат.Вставить("Имя SQL базы", "");

    Результат.Вставить("Имя DBO пользователя", "");

    Результат.Вставить("Пароль DBO пользователя", "");

    Результат.Вставить("Контрольная сумма DBO", 0);

    Результат.Вставить("Каталог базы", СокрЛП(КаталогБазы));

    

    // поехали анализировать

  

    _КаталогБазы = СокрЛП(КаталогБазы);

    Если Прав(_КаталогБазы, 1) <> "\" Тогда

        _КаталогБазы = _КаталогБазы + "\";

    КонецЕсли;

    

    ИмяФайла = _КаталогБазы + "1Cv7.MD";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если не ВыбФайл.Существует() Тогда

        Возврат Результат;

    КонецЕсли;

    

    // вроде база есть, теперь будем заполнять поля ключевых файлов

 

    

    Результат.Вставить("Имя MD файла", ВыбФайл.ПолноеИмя);

    

    Результат.Вставить("Дата MD файла", ВыбФайл.ПолучитьВремяИзменения());

    Результат.Вставить("Размер MD файла", ВыбФайл.Размер());

    Результат.Вставить("Имя Links файла", _КаталогБазы + "SYSLOG\links.tmp");

    

    ИмяФайла = _КаталогБазы + "usrdef\users.usr";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Результат.Вставить("Имя Users файла", ВыбФайл.ПолноеИмя);

    КонецЕсли;

    

    ИмяФайла = _КаталогБазы + "1Cv7.DBA";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Результат.Вставить("Имя DBA файла", ВыбФайл.ПолноеИмя);

        Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.SQL);

        // здесь надо расшифровать параметры доступа к SQL

Иначе

        // для файловой версии надо посмотреть наличие dbf файлов, по крайне мере должен быть "1SJOURN.DBF"

         ИмяФайла = _КаталогБазы + "1SJOURN.DBF";

        ВыбФайл = Новый Файл(ИмяФайла);

        Если ВыбФайл.Существует() Тогда

            Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Файловая);

        Иначе

            // для файловой версии надо посмотреть наличие dbf файлов, по крайне мере должен быть "1SJOURN.DBF"

             Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Ошибка);

            Возврат Результат;

        КонецЕсли;

    КонецЕсли;