請問如何取得AD帳號資訊 |
尚未結案
|
mhchen
一般會員 發表:3 回覆:1 積分:0 註冊:2003-03-26 發送簡訊給我 |
當執行到 edit1.Text := usr.Department;
這一行會出現 "在快取記憶體中找不到目錄的內容" 的錯誤訊息 <textarea class="delphi" rows="10" cols="60" name="code"> Procedure TfrmUser.trUserChange(Sender: TObject; Node: TTreeNode);
var usr : IAdsUser;
flags : integer;
begin
if Node = nil then Exit;
if FUseOpenObject then
ADsOpenObject('WinNT://' FDomain '/' Node.Text, FUserName, FPassword, 1, IADsUser, usr)
else
ADsGetObject('WinNT://' FDomain '/' Node.Text, IADsUser, usr); Assert(usr <> nil); edtUserName.Text := node.Text;
edtFullName.Text := usr.FullName;
edtDescription.Text := usr.Description; edit1.Text := usr.Department; flags := usr.Get('userFlags');
chbChangeAtNextLogon.Checked := usr.Get('PasswordExpired');
chbCannotChangePass.Checked := (flags AND ADS_UF_PASSWD_CANT_CHANGE)<>0;
chbPassNeverExpires.Checked := (flags and ADS_UF_DONT_EXPIRE_PASSWD)<>0;
chbAcctDisabled.Checked := usr.AccountDisabled;
chbAcctLockedOut.Checked := usr.IsAccountLocked;
EnumGroups( usr );
//usr._Release;
end; </textarea>
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |