• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Lsxldap.dll & Domino 8.5.3

  • Автор темы deeeman
  • Дата начала
D

deeeman

Привет!
обновили домино до последней. ранее была 7.
работали с Active Directory через библиотеку lsxldap.dll
после установки 8.5.3 (с нуля) библиотека отказывается подхватываться.

ошибка: Error use or uselsx

Вопрос: в чем проблема?
существую ли способы брать пользователей из Active Directory другим методом?


OC: Windows Server 2008 EE x32 + SP2 (eng) + all hotfixes and updates
 

savl

Lotus Team
28.10.2011
2 597
310
BIT
179
LDAP

Код:
Function SearchLDAP(userName As String) As String 

Dim objConnection As Variant 
Dim objCommand As Variant 
Dim objRecordSet As Variant 

Const ADS_SCOPE_SUBTREE = 2

On Error Goto errHandler

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand = CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

' Note: I've used cn field of Active Directory for selection, Other fields like, mail, sn etc can be used instead
objCommand.CommandText = "SELECT * FROM 'LDAP://10.14.1.206' WHERE cn='"+userName+"' "					' Modify this line with your actual LDAP server name

Set objRecordSet = objCommand.Execute 

If ( objRecordSet.RecordCount = 0 ) Then
SearchLDAP="0"
Else
SearchLDAP="1"
End If

objRecordSet.close

Exit Function
errHandler:
Msgbox "Error is : " & Error$ & " at line number : " & Cstr(Erl) & " in SearchLDAP() " & " while processing user : " & userName
Exit Function
End Function

авторство тут:
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 941
609
BIT
214
не знаком с такой либой, как понял - автор её забросил...
т.к. ссылки
битые
алтернативы - юзать java
 
D

deeeman

lmike


юзать яву. а подробнее есть библа? я нуб в яве((
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 941
609
BIT
214
как пример
ну и
 
D

deeeman

lmike

с этого сайта
взял библу, скопировал в лотус дизайнер. не хочет сохраняться. говорит ошибка на строке:

Код:
ldapEnv.put(Context.INITIAL_CONTEXT_FACTORY,"com.sun.jndi.ldap.LdapCtxFactory");

описание ошибки: identifier expected

как отладить библу? мож чо не хватает?
эти библиотеки вообще стандартные? или их надо добавлять в папку домино?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!