Como trabajar con Active Directory

[fide_uci]

Hola amigos. Estoy buscando algun componente o forma de trabajar con Active Directory y los dominios WiNNT en delphi. Alguno de ustedes me podria ayudar?

[ecfisa]

Hola fide_uci.

Revisá estos enlaces a ver si te pueden servir:

link 1
link 2
link 3

Un saludo.

[fide_uci]

Hmmm, muchisimas gracias. He resuelto con estos links que me dejaste. Muchas gracias ecfisa.

[fide_uci]

Saben como puedo modificar el atributo que se usa para que el usuario no pueda modificar su contraseña?.

Aca en un sitio de Microsoft se dice que eso se hace de una forma especial.
http://msdn.microsoft.com/en-us/library/Aa746398

Alguien me puede explicar si ha hecho esto antes?. Aca dejo algo del codigo que estoy intentando usar.

Código Delphi [-]
var
  Usr: IADsUser;
  dominio: string;
begin
    //Es aca donde se obtiene si esta marcado o no, justo cuando el mouse se levanta

    dominio := frmSessionInit.edt_domain.Text;

  try
    if not frmSessionInit.chk_another_user.Checked then
      ADsOpenObject('WinNT://' + dominio + '/' +
          edt_searchcrit.Text, frmSessionInit.cbb_username.Text,
          frmSessionInit.edtPassword.Text, 1,
          IADsUser, usr)
    else
      ADsGetObject('WinNT://' + dominio + '/' + edt_searchcrit.Text, IADsUser, usr);

    Assert(usr <> nil);

    if chk_no_pass_expire.Checked then
      Usr.Put('UserFlags', Usr.Get('UserFlags') OR ADS_UF_PASSWD_CANT_CHANGE)
    else
      Usr.Put('UserFlags', Usr.Get('UserFlags') XOR ADS_UF_PASSWD_CANT_CHANGE);
      Usr.SetInfo;
  except
    on E: EOleException do begin
      ShowMessage(E.Message);
    end;
  end;