在站上查到「使用Delphi讀取NT或2000的帳號及密碼做認證」的方法後，覺得這個功能超好用的，不用自已管理帳號密碼，真好 ^_^ 但是、接下來就是想要從 NT網域伺服器 or AD 裡取得User的相關資料，例如：使用者的姓名、部門、說明.... 等等的欄位資訊． 是否有高手能分享心得 or 函式 ？ 先謝謝囉 ～

http://delphi.ktop.com.tw/topic.php?topic_id=21708

謝謝您的快速回答． 您所提的方式是取得網域內所有的使用者資料． 雖然將您的程式碼抄來用，但還是看不懂 @_@ 是否能麻煩您給我一個範例，是以UserID取得相關資訊． 像是： function GetUserComment(UserID,ServerName: String): String; 以這樣的方式取得． 我以後想寫的是 function GetUserInfo(UserID,ServerName: String;Infotype): String; 其中 InfoType： 0 : name 1 : home_dir 2 : comment .........

參考上例... 修改getUsersName function    For迴圈裡改成

      If Info.usri3_name = UserId then
      begin
        Result = Info.usri3_comment;
        break;
      end;

這樣應該就可以了...

再次謝謝您的回答． 只是，這樣等於是將整個資料表讀出再逐一檢查(Scan Table) 有更直接的方式嗎 ？ (希望能像是 SQL 一樣，直接得到需要的那筆資料) 是否能修改下面這行指令、直接取得指定帳號的資料？ NetUserEnum(FD, 0, 0, Ptr, 256 * Integer(Total), Count, Total, Resume);

試試這個...    

function NetUserGetInfo(ServerName:PWideChar;UserName:PWideChar;Level:DWORD;var Buf:Pointer):Longint;stdcall;external 'netapi32.dll' Name 'NetUserGetInfo';
function NetApiBufferFree(Buff: Pointer):Integer;stdcall;external 'netapi32.dll' Name 'NetApiBufferFree';    function GetUserInfo(Server, User: String): String;
var
  UserInfo : PUSER_INFO_3;
  lpwUser  : Array[0..255] Of WideChar;
  lpwSrv   : Array[0..255] Of WideChar;
begin
  StringToWideChar(Server, lpwSrv, SizeOf(lpwSrv));
  StringToWideChar(User, lpwUser, SizeOf(lpwUser));      NetUserGetInfo(lpwSrv,lpwUser,2,Pointer(UserInfo));      Result := UserInfo.usri3_comment;      NetApiBufferFree(UserInfo);
end;

感恩呀～ 就是這個啦 ！    不過、不能有錯誤發生． 例如：主機名稱 or 使用者帳號有問題的時候，就會出現存取違規． 這個簡單，這樣就行啦．

function GetUserInfo(Server, User: String): String;
var
   UserInfo : PUSER_INFO_3;
   lpwUser : Array[0..255] Of WideChar;
   lpwSrv : Array[0..255] Of WideChar;
begin
   StringToWideChar(Server, lpwSrv, SizeOf(lpwSrv));
   StringToWideChar(User, lpwUser, SizeOf(lpwUser));
   try
      NetUserGetInfo(lpwSrv,lpwUser,2,Pointer(UserInfo));
      Result := UserInfo.usri3_full_name;
   except
      Result := '';
   end; 

不過，還是沒有群組的資料． 像是：取得網域內所有的群組的名稱、取得指定帳號所屬的所有群組、變更使用者密碼.... 呵 ～ 問得越來越多、希望您不會覺得煩．

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netmgmt/netmgmt/network_management_functions.asp 參考上面的資料.. NetGroupAdd NetGroupAddUser NetGroupDel NetGroupDelUser NetGroupEnum NetGroupGetInfo NetGroupGetUsers NetGroupSetInfo NetGroupSetUsers 這些都是關於群組的設定及取得資訊.. 寫法和宣告都大同小異.. 試試吧...