• vasa777 (25.06.12 13:09) [0]
    Xe2. помогите плз, наткнулся на ошибку, описаную тут:

    http://www.delphimaster.net/view/4-1089118392

    1. добавить пользователя дает (по логину), пароль установить, а дополнительные свойства заполнить - нет. Тот же First Name например или другое, то что в свойсвах пользователя в оснастке видно, как только заполняешь свойство - та же ошибка вылазит. Права при запуске проги - админ схемы\домена, может где то в Ад надо что то покрутить?
    2. еще вопрос - как заполнить свойства типа extensionAttribute1 ? В передаче свойств для пользователя нашел все кроме доп. атрибутов
    3. свойства пользователя запрашиваю через sql к ado:
    select
    extensionAttribute1,
    extensionAttribute2,
    cn,
    sn,
    givenname,
    displayName,
    sAMAccountName,
    userPrincipalName,
    mail,
    title,
    telephonenumber,
    company,
    department,
    description,
    objectSid,
    physicalDeliveryOfficeName,
    userAccountControl
    from 'LDAP://dc=ru/dc=mydomain/OU=User'
    where
    objectCategory = 'person' and objectClass='user' and
    userAccountControl<>514
    and userAccountControl<>546
    order by name
    все запрашивается успешно.
    Вопрос: а нельзя ли подобным запросом свойства поменять или нового пользователя добавить (т.к. вариант 1 (выше) не работает)?
    Спасибо.
  • vasa777 (25.06.12 17:54) [1]
    или может кто сказать как в ad добавить пользователя со всеми аттрибутами?
  • vasa777 (26.06.12 13:11) [2]
    если кому интересно, все получилось решить через LDAP и ADsGetObject.
  • Cobalt © (26.06.12 15:47) [3]
    Поздравляю, можешь для какого-нибудь лентяя оставить здесь код :-)
  • Enoty200shtyk (30.10.12 11:57) [4]
    я тот лентяй господа!!!  Помогите а то в интернетах ссылок толковых нет на delphi
  • anatoly podgoretsky © (30.10.12 12:41) [5]
    А тебя какой Ад интересует, наиболее известен ад Данте
  • Enoty200shtyk (30.10.12 14:48) [6]
    active directory, добавление пользователя с нуля через LDAP.

     hr := ADsOpenObject('LDAP://aaa.bbb.com /DC=aaa,DC=bbb,DC=com','administrator','password',ADS_SECURE_AUTHENTICATION , IADsContainer, Container );
     if Failed(hr) then exit;
     NewObject := Container.Create('User','Pupkin_i_i') as IADs;
      NewObject.QueryInterface(IID_IADsUser, User);
      User.SetPassword('NewPass');



    Отваливается с ошибкой "Указан недопустимый dn-синтаксис"
  • Dennis I. Komarov © (01.11.12 22:39) [7]
    net user /?
Есть новые Нет новых   [134435   +9][b:0][p:0.001]