Добавление фотографий из 1с в ActiveDirectory

Допустим что перед нами стоит задача выгрузить фотографии сотрудников из 1с в ActiveDirectory.

С чего начнем. Начнем с создания подключения к AD.

    // Подключимся к AD
    Попытка
        oConnect = ПолучитьCOMОбъект(«»,«ADODB.Connection»);
        oConnect.Provider = «ADSDSOObject»;
        oConnect.Properties(«User ID»).Value = «ВашАдминскийЮзер»;
        oConnect.Properties(«Password»).Value = «ЕгоПароль»;
        oConnect.Properties(«Encrypt Password»).Value = True;
        oConnect.Open(«Active Directory Provider»);
    Исключение
        Возврат;
    КонецПопытки;

Затем необходимо прочитать фото в 1с. Для этого я пользовалась своим РегистромСведений ИзменениеФотоФизЛица, который заполняется каждый раз при изменении фото у физ лица. Вы можете напрямую смотреть в карточке физ лица

// Список записанных фото
    СписокФотоФизЛиц = Новый СписокЗначений;
    // Прочитаем регистр изменений фотографий физ. лиц
    ИзменениеФотоФизЛица = РегистрыСведений.ИзменениеФотоФизЛица.СоздатьНаборЗаписей();
    ИзменениеФотоФизЛица.Прочитать();
    Для каждого ФотоФизЛица Из ИзменениеФотоФизЛица Цикл
        Записали = Ложь;
        // Получить имя временного файла
        ИмяФайла = ПолучитьИмяВременногоФайла();
        мТекущееИзображение = ФотоФизЛица.Фото.Хранилище.Получить();
        // Страховой номер ПФР является поисковым реквизитом
        НомерПФР = ФотоФизЛица.Физлицо.СтраховойНомерПФР;
        Если Не ПустаяСтрока(НомерПФР) И мТекущееИзображение <> Неопределено Тогда
            мТекущееИзображение.Записать(ИмяФайла);

Как вы заметили Страховой номер у меня это уникальный идентификатор, т.е. в AD в EmployeeID должно быть равно номеру ПФР.

Для помещения картинки в AD она должна соответствовать размеру (не более 10 К и ширина, высота — 96). Для изменения размера картинки воспользуемся стандартной библиотекой Windows Image Acquisition Automation Library (в Windows 7 входит в состав дистрибутива). Библиотеку wiaaut.dll придется зарегистрировать командой regsvr32.

     Попытка
         Фото       = Новый COMОбъект(«WIA.ImageFile»);
         Процессор  = Новый COMОбъект(«WIA.ImageProcess»);
         Фото.LoadFile(ИмяФайла);
         Если Окр(Фото.FileData.Count / 1024, 2) > 10 Тогда  //Сравниваем размер файла
             Процессор.Filters.Add(Процессор.FilterInfos(«Scale»).FilterID);
             Процессор1 = Процессор.Filters(1);
             Для К = 1 По Процессор1.Properties.Count Цикл
                 Если Процессор1.Properties(К).Name = «MaximumWidth» Тогда
                     Процессор1.Properties(К).Value = 96; //Задаем ширину
                 КонецЕсли;
                 Если Процессор1.Properties(К).Name = «MaximumHeight» Тогда
                     Процессор1.Properties(К).Value = 96; //Задаем высоту
                 КонецЕсли;
             КонецЦикла;
             Фото = Процессор.Apply(Фото);
         КонецЕсли;
         ИмяФайла = Лев(ИмяФайла, СтрДлина(ИмяФайла) — 4) + «.jpg»;
         Фото.SaveFile(ИмяФайла);
         Фото = Новый COMОбъект(«ADODB.Stream»);
         Фото.Type = 1;
         Фото.Open();
         Фото.LoadFromFile(ИмяФайла);
     Исключение
         Сообщить(«Возникла проблема » + ОписаниеОшибки());
     КонецПопытки;

Ну а теперь находим пользователя в AD и записываем ему фото:

       Query = «SELECT Name, sAMAccountName, ADsPath FROM ‘LDAP://Домен/DC=ВашСервер,DC=ru’ WHERE objectCategory=’User’ And employeeID='»+НомерПФР+«‘»;
       Records = oConnect.Execute(query);
       Если НЕ Records.EOF Тогда
           ADsPath = Records.Fields(«ADsPath»).Value;
           CN = ПолучитьCOMОбъект(Records.Fields(«ADsPath»).Value).Name;
           ADsPath = СтрЗаменить(ADsPath, CN+«,», «»);
           PreObj = ПолучитьCOMОбъект(«LDAP:»);
           objContainer = PreObj.OpenDSObject(ADsPath, «ВашАдминскийЮзер», «ЕгоПароль», 1);
           UpdateObject = objContainer.GetObject(«User», CN);
           UpdateObject.Put(«thumbnailPhoto», Фото.Read());
           UpdateObject.SetInfo();
       КонецЕсли;
       Записали = Истина;
   Исключение
   КонецПопытки;

Закрываем подключение. Прибираемся. Уходим. Вот и всё!!!

        // Удалим фото из регистра
        СписокФотоФизЛиц.Добавить(ФотоФизЛица);
        // Удалим временный файл
        УдалитьФайлы(ИмяФайла);
    КонецЕсли;
КонецЦикла;
// Закроем AD
oConnect.Close();
// Запишим изменения в регистр изменений фотографий физ. лиц
Для каждого ФотоФизЛица Из СписокФотоФизЛиц Цикл
    ИзменениеФотоФизЛица.Удалить(ФотоФизЛица.Значение);
КонецЦикла;
ИзменениеФотоФизЛица.Записать(Истина);

Успехов . В прикрепленных файлах есть обработка (не забудьте изменить строки подключения)

На скриншотах Вы можете увидеть результат работы обработки — на закладке Редактор аттрибутов в атрибуте thumbnailPhoto появилась строка с двоичными данными. В дальнейшем эти фотографии могут быть импортированы в Outlook.