Ver Mensaje Individual
  #1  
Antiguo 12-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
Exclamation Problemas con ADSI y Atributos

Hola amigos. Tengo el siguiente codigo. El problema es que cuando intento acceder a la mayoria de los atributos me dice que no se encuentra en la cache. O sea me da este error.

"The directory property cannot be found in the cache."

Aca les dejo el codigo que uso !. Las cosas que estan comentadas es por que me dan el error que les digo.

Código Delphi [-]
      if 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);
      //txtUsuario.Text := 'dixan';
      lbledtl_nombre_completo.Text := usr.FullName;
      //lbledt_nombre.Text := usr.FirstName;
      //lbledt_apellidos.Text := usr.LastName;
      //lbledt_titulo.Text := usr.Title;
      
      //lbledt_departamento.Text := usr.Department;
      //txtDescripcion.Text := usr.Description;
      Caption := usr.GetEx('EmailAddress');
      flags := usr.Get('userFlags');
      chk_changuePasswordProx.Checked := usr.Get('PasswordExpired');
      chk_no_pass_chang.Checked := (flags and ADS_UF_PASSWD_CANT_CHANGE)<> 0;
      chk_no_caduc_passw.Checked := (flags and ADS_UF_DONT_EXPIRE_PASSWD)<> 0;
      chk_account_inactive.Checked := usr.AccountDisabled;
      chk_account_locked.Checked := usr.IsAccountLocked;
      EnumGroups(usr);
Responder Con Cita