Hi
Just thought I'd throw in my two pence - I set up retrieval of photos from LDAP a while back (CUPS6, with suitably old version of CUPC) but I used the jpegPhoto attribute, not thumbnailPhoto. I couldn't tell you what the difference is between the two, but a quick google of the two attributes suggests there are some technical differences in the way they are either stored or retrieved.
Maybe try populating a couple of users' jpegPhoto attributes and see if you get any luck if you reconfigure the CUPC attribute map. Also keep the pictures small (while testing, as I imagine there's some upper limit on the size of the data you can store, and the size of the data you want to replicate round the place). What is/isn't supported may well have changed in CUPC 8.0
Final comment - if you are using port 389, you aren't using the Global Catalog service even if the DC you point at runs the GC service, so it doesn't matter if you've edited the schema to replicate the thumbnail attribute to the GC or not.
I used this script to load the jpegs (the name of each jpeg minus the .jpeg extension was the sAMAccountName or possibly the Display Name of the corresponding user if I recall correctly):
Const ForReading = 1
InDir = "c:\PICS\"
Set fso = CreateObject("Scripting.FileSystemObject")
set oIADS = GetObject("LDAP://RootDSE")
strDefaultNC = oIADS.Get("defaultnamingcontext")
Set theConn = CreateObject("ADODB.Connection")
theConn.Provider = "ADsDSOObject"
theConn.Open "ADs Provider"
Set theCmd = CreateObject("ADODB.Command")
theCmd.ActiveConnection = theConn
Set objRecordSet = CreateObject("ADODB.Recordset")
For Each tFile In fso.GetFolder(InDir).Files
tName = tFile.Name
'Gets the persons Name from the file by stripping the extention.
tName = Left(tName, InStrRev(tName,".")-1)
'You may need to tweak this bit depending on your naming conventions.
strQuery = "<>;" & _
"(&(objectClass=person)(name=" & tName & "));name,adspath;subtree"
theCmd.CommandText = strQuery
Set objRS = theCmd.Execute
If objRS.RecordCount = 0 Then
MsgBox "Can't find account for " & tName
Else
Set objUser = GetObject(objRS("adspath"))
ObjUser.Put "jpegPhoto", ReadByteArray(tFile.Path)
ObjUser.SetInfo
End If
Next
'Stolen from http://www.ericphelps.com/q193998/index.htm
Function ReadByteArray(strFileName)
Const adTypeBinary = 1
Dim bin
Set bin = CreateObject("ADODB.Stream")
bin.Type = adTypeBinary
bin.Open
bin.LoadFromFile strFileName
ReadByteArray = bin.Read
End Function
Aaron
Please rate if useful...
Aaron
Please remember to rate helpful posts to identify useful responses, and mark 'Answered' if appropriate!
