У меня проблема с Visual Basic (6) в сочетании с LDAP. Когда я пытаюсь подключиться к хранилищу LDAP, я всегда получаю такие ошибки, как «Bad Pathname» или «Таблица не существует» (в зависимости от того, как выглядит код).Как подключиться к хранилищу LDAP с VB6
Это часть кода, который я написал для подключения:
path = "LDAP://xx.xxx.xxx.xxx:xxx/"
Logging.WriteToLogFile "Test1", logINFO
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Properties("User ID") = "USER_ID"
conn.Properties("Password") = "PASSWORD"
conn.Properties("Encrypt Password") = True
conn.Properties("ADSI Flag") = 34
Logging.WriteToLogFile "Test2", logINFO
conn.Open "Active Directory Provider"
Logging.WriteToLogFile "Test3", logINFO
Set rs = conn.Execute("<" & path & "ou=Some,ou=Kindof,o=Searchbase>;(objectclass=*);name;subtree")
Logging.WriteToLogFile "Test4", logINFO
Файл журнала показывает «Test1», «Test2», «Test3», а затем «Таблица не существует», так что линия Msgstr "Установить rs = conn.Execute (...)", где все идет не так (довольно очевидно ...).
В моем коде я стараюсь подключаться безопасным способом. Я выяснил, что это не имеет никакого отношения к SSL/сертификатам, потому что также невозможно установить анонимное незащищенное соединение. Забавно: я написал небольшое тестовое приложение в .NET за пять минут. С этим приложением я смог подключиться (анонимно) и читать результаты из магазина LDAP, никаких проблем вообще.
Есть ли у кого-нибудь опыт работы с комбинацией LDAP и VB6 и, возможно, знаете, в чем проблема? Я googled и увидел некоторые примеры кода, но, к сожалению, никто из них не работал (такие же сообщения об ошибках, как результат). Заранее спасибо!