Продукты IBM Lotus > IBM Lotus Notes & Domino
дополнительная адресная книга + DA
chaki:
Спасибо большое, получилось.
теперь возникла небольшая проблема.....
У меня в базе da.nsf также присутствует документ для LDAP (для авторизации пользователей Sametime с использованием доменных учетных записей).
Так вот, теперь когда я выбираю адрес из новой адресной книги (подцепленной с помощью DA) по умолчанию почему то подставляется адрес из AD в формате CN=Артемов Артем/OU=Users/DC=имя домена/DC=ru
Почему не выбирается адрес нормальный, который заведен в адресной книге для выбранного пользователя?????
Alla Makshanova:
Он, наверно, засовывает в массив пользователей в том виде, котором получил ("CN=Вася Пупкин,CN=Users,DC=xxx,DC=ru") ;o)
Можно перебирать обьекты пользователей, у которых можно взять нужные аттрибуты и вставлять их
Есть примеры. В первом варианте выводится в формате CN=Вася Пупкин,CN=Users,DC=xxx,DC=ru, во втором не названия пользователей, как выводится, а объекты пользователей.
1.
Sub test1()
Cells.Select
Range("A1").Activate
Selection.ClearContents
Set objGroup = GetObject _
("LDAP://cn=Internet Mail,cn=Users,dc=xxx,dc=ru")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")
Row = 1
For Each strMember In arrMemberOf
Cells(Row, 1).Value = strMember
Row = Row + 1
Next
End Sub
2.
Sub test1()
Cells.Select
Range("A1").Activate
Selection.ClearContents
Set objGroup = GetObject("LDAP://cn=Internet Mail,ou=Users,dc=xxx,dc=ru")
objGroup.GetInfo
Row = 1
For Each objUser In objGroup.Members
Cells(Row, 1).Value = objUser.cn
Cells(Row, 2).Value = objUser.Name
Row = Row + 1
Next
End Sub
Roman Gnetiy:
посмотрите в Domino Directory документ Configuration, общий для всех серверов (отмечен специальной галочкой внутри), в нем есть раздел LDAP, там посмотрите отображение и соответствие имен, скорее всего надо выбрать другой формат.
Навигация
Перейти к полной версии