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);
lbledtl_nombre_completo.Text := usr.FullName;
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);