Работа с Ad

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

  1. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    Всем привет!
    Есть задача... необходимо создавать, удалять пользователя в Active Directory
    А кроме того расширять или урезать ему права.
    Кто-нибудь подобное делал?
     
  2. rinsk

    rinsk Lotus team
    Lotus team

    Регистрация:
    12 ноя 2009
    Сообщения:
    795
    Симпатии:
    78
    AD - Active Directory или что?
     
  3. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
  4. Klido

    Klido Гость

    гугл по "lotus domino active directory" все покажет...
    создавать, изменять, удалять - точно норм, с правами не так все просто...
    имеется ввиду админскими методами или надо программными? хотя про это там тоже есть...

    а, вот http://codeby.net/forum/threads/34835.html?vi...st&p=167142
     
  5. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    Ну наверное не спрашивал бы, если бы все просто было.
     
  6. rinsk

    rinsk Lotus team
    Lotus team

    Регистрация:
    12 ноя 2009
    Сообщения:
    795
    Симпатии:
    78
    Делал.
     
  7. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    Можешь поделиться набросками?
     
  8. rinsk

    rinsk Lotus team
    Lotus team

    Регистрация:
    12 ноя 2009
    Сообщения:
    795
    Симпатии:
    78
    Могу, если скажешь что значит "расширять или урезать ему права" Права на какой обьект? FS? Членство в группах? или что-то еще?

    Все эти манипуляции описаны в MSDN. Один в один кладется в LS...

    http://www.activxperts.com/activmonitor/wi...rsgroups/users/

    Типа:

    Set container=GetObject("GC:")
    Forall obj In container
    Set gc=obj
    End Forall
    AdsPath=gc.adspath
    ....
    LDAPstring="<"+AdsPath+">;"+SearchFilter+";"+sysFields+","+infoFields+";subtree"
    SQLstring=|SELECT whenChanged,objectGUID,distinguishedName,userPrincipalName,title,department,tele
    phoneNumber,description,textEncodedORAddress,otherMailbox FROM '|+AdsPath+|' Where objectClass='user' AND objectCategory='person' and sAMAccountName LIKE %))|

    Set con = CreateObject("ADODB.Connection")
    Set com = CreateObject("ADODB.Command")
    ''con.property: http://msdn.microsoft.com/library/default....objects_ado.asp
    ''''''''''''''
    con.Provider = "ADsDSOObject"
    con.Properties("User ID") ="userid"
    con.Properties("Password") ="passv"
    con.Properties("Encrypt Password") = True
    con.Open "Active Directory Provider"
    '''''''''''''''
    Set Com.ActiveConnection = con
    ''''''''''''''
    com.Properties("Cache results")=False
    com.Properties("Page Size") = 10000
    com.Properties("Timeout") = 30 'seconds
    com.Properties("Searchscope") =2 ' ADS_SCOPE_SUBTREE 'Define in ADS_SCOPEENUM
    '''''''''''''
    Com.CommandText =LDAPstring
    Set RS=com.Execute
    '''''''''''''
    While Not rs.eof()
    ID=mGUID(rs.Fields("objectGUID").value)
     
  9. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    rinsk
    Да.. членство в группах, доступ к сетевым ресурсам
     
  10. nnikishi

    nnikishi Гость

    используйте Microsoft Windows Scripting в лотусскрипте, там все решаемо относительно просто
     
Загрузка...
Похожие Темы - Работа
  1. Andrey Kha
    Ответов:
    0
    Просмотров:
    20
  2. Hoasker
    Ответов:
    0
    Просмотров:
    64
  3. garri671
    Ответов:
    0
    Просмотров:
    54
  4. lelik200969
    Ответов:
    0
    Просмотров:
    50
  5. Kozolick
    Ответов:
    0
    Просмотров:
    137

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