1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Lsxldap.dll & Domino 8.5.3

Тема в разделе "Lotus - Программирование", создана пользователем deeeman, 2 окт 2012.

  1. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    381
    Симпатии:
    0
    Привет!
    обновили домино до последней. ранее была 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
     
  2. savl

    savl Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    28 окт 2011
    Сообщения:
    2.114
    Симпатии:
    157
    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
    авторство тут: источник
     
  3. lmike

    lmike нет, пердело совершенство
    Lotus team

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.361
    Симпатии:
    336
  4. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    381
    Симпатии:
    0
    lmike


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

    lmike нет, пердело совершенство
    Lotus team

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.361
    Симпатии:
    336
  6. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    381
    Симпатии:
    0
    lmike

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

    Код:
    ldapEnv.put(Context.INITIAL_CONTEXT_FACTORY,"com.sun.jndi.ldap.LdapCtxFactory");
    описание ошибки: identifier expected

    как отладить библу? мож чо не хватает?
    эти библиотеки вообще стандартные? или их надо добавлять в папку домино?
     
Загрузка...

Поделиться этой страницей