Допустим что перед нами стоит задача выгрузить фотографии сотрудников из 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.
