Ver Mensaje Individual
  #4  
Antiguo 13-04-2011
Avatar de fide_uci
fide_uci fide_uci is offline
Miembro
 
Registrado: ene 2009
Ubicación: Cuba - La Habana
Posts: 226
Reputación: 16
fide_uci Va por buen camino
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;
Responder Con Cita