powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение дополнительных атрибутов из LDAP
1 сообщений из 1, страница 1 из 1
Чтение дополнительных атрибутов из LDAP
    #34872237
Victor Alenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте, All!

В Oracle OID для LDAP-каталога пользователей был добавлен атрибут "myField".
Пробую его "прочитать" следующими строками:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
	On Error Resume Next
	
	Dim vLDAP As Variant
	Dim strQuery As String
	Dim strUser As String
	Dim strPass As String
	Dim i As Integer
	Dim strName As String
	Dim vValue As Variant
	
	strQuery = "LDAP://server:389/cn=UserName,cn=users,dc=server,dc=ru"
	
	Set vLDAP = GetObject(strQuery)
	Call vLDAP.getInfo()
	
	For i =  0  To vLDAP.PropertyCount- 1 
		strName = vLDAP.Item(Cvar(i)).Name
		vValue = ""
		vValue = vLDAP.Get(vLDAP.Item(Cvar(i)).Name)
		Msgbox strName & ": " & Typename(vValue)
		Msgbox strName & ": " & Cstr(vValue)
	Next

и получаю следующий список:
givenname: STRING
givenname: Лотус
sn: STRING
sn: Домино
mail: STRING
mail: domino@server.ru
objectclass
: VARIANT( )
uid: STRING
uid: domino
orclactivestartdate: STRING
orclactivestartdate:
cn: STRING
cn: domino
orclisenabled: STRING
orclisenabled:
middlename: STRING
middlename:
myField: STRING
myField:


Почему значение в "myField" пустое, хотя через LDAP браузер там показывается значение "UserName/Server/RU"
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение дополнительных атрибутов из LDAP
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]