Strelok13
У нас фото сотрудников хранятся в поле jpegPhoto их аккаунтов.
Заливаются туда из jpeg-файлов VBS-скриптом типа:
==================
Option Explicit
Function UpdateADobjectJpegPhoto(strADsPath, strImagePath)
Dim objADuser, objStream
Set objADuser = GetObject("LDAP://" & strADsPath)
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strImagePath
objADuser.jpegPhoto = objStream.Read
objADuser.SetInfo
Set objStream = Nothing
Set objADUser = Nothing
End Function
Dim strADsUserPath, strImagePath
strADsUserPath = "CN=Бобров Степан Батькович,OU=bobr,OU=Users,DC=plotina,DC=ru"
strImagePath = "bobr.jpg"
Call UpdateADobjectJpegPhoto(strADsUserPath, strImagePath)
====================
Соответственно в настройках маппинга полей для Photo/Avatar прописываем {jpegPhoto}
Кстати, почему-то версия OF 3.6.3 при настройках или исправлениях настроек любит самодеятельно очищать значения в полях: Base DN и Photo/Avatar
У нас фото сотрудников хранятся в поле jpegPhoto их аккаунтов.
Заливаются туда из jpeg-файлов VBS-скриптом типа:
==================
Option Explicit
Function UpdateADobjectJpegPhoto(strADsPath, strImagePath)
Dim objADuser, objStream
Set objADuser = GetObject("LDAP://" & strADsPath)
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strImagePath
objADuser.jpegPhoto = objStream.Read
objADuser.SetInfo
Set objStream = Nothing
Set objADUser = Nothing
End Function
Dim strADsUserPath, strImagePath
strADsUserPath = "CN=Бобров Степан Батькович,OU=bobr,OU=Users,DC=plotina,DC=ru"
strImagePath = "bobr.jpg"
Call UpdateADobjectJpegPhoto(strADsUserPath, strImagePath)
====================
Соответственно в настройках маппинга полей для Photo/Avatar прописываем {jpegPhoto}
Кстати, почему-то версия OF 3.6.3 при настройках или исправлениях настроек любит самодеятельно очищать значения в полях: Base DN и Photo/Avatar