請教各位高手,DELPHI要如何抓取 NT/WIN2000上的使用者名單,謝謝

type USER_INFO_0=packed record usri0_name:PWideChar; end; type PUSER_INFO_0=^USER_INFO_0; .. .. .. .. function NetUserEnum(ServerName:PWideChar;Level:DWORD;Filter:DWORD;var Buf:Pointer;PrefMaxLen:DWORD; var EntriesRead:PDWord;var TotalEntries:PDWord;var ResumeHandle:PDWord):Longint;stdcall;external 'netapi32.dll' Name 'NetUserEnum'; .. .. .. .. function getUsersName(ServerName: String): String; var Ptr:Pointer; Total:PDWord; Count:PDWord; Resume:PDWord; Info:PUSER_INFO_0; I:Integer; FD:Array[0..255] Of WideChar; begin Result := ''; FError := 0; Resume := nil; StringToWideChar(sname, FD, SizeOf(FD)); NetUserEnum(FD, 0, 0, Ptr, 0, Count, Total, Resume); FError := NetUserEnum(FD, 0, 0, Ptr, 256 * Integer(Total), Count, Total, Resume); If FError = 0 Then Begin Info := PUSER_INFO_0(Ptr); For I := 1 To DWord(Count) Do Begin Result := Result Info.usri0_name ', '; Inc(Info); End; End; end;

首先謝謝您的回答,但真不好意思,我功力尚淺,我該如何將您的程式寫入我的程式內去執行呢

抱歉，我已知道怎麼執行了，但是我想抓詳細的資訊要如何做呢？

把 _USER_INFO_0 改成 _USER_INFO_3    typedef struct _USER_INFO_3 {     LPWSTR    usri3_name;     LPWSTR    usri3_password;     DWORD     usri3_password_age;     DWORD     usri3_priv;     LPWSTR    usri3_home_dir;     LPWSTR    usri3_comment;     DWORD     usri3_flags;     LPWSTR    usri3_script_path;     DWORD     usri3_auth_flags;     LPWSTR    usri3_full_name;     LPWSTR    usri3_usr_comment;     LPWSTR    usri3_parms;     LPWSTR    usri3_workstations;     DWORD     usri3_last_logon;     DWORD     usri3_last_logoff;     DWORD     usri3_acct_expires;     DWORD     usri3_max_storage;     DWORD     usri3_units_per_week;     PBYTE     usri3_logon_hours;     DWORD     usri3_bad_pw_count;     DWORD     usri3_num_logons;     LPWSTR    usri3_logon_server;     DWORD     usri3_country_code;     DWORD     usri3_code_page;     DWORD     usri3_user_id;     DWORD     usri3_primary_group_id;     LPWSTR    usri3_profile;     LPWSTR    usri3_home_dir_drive;     DWORD     usri3_password_expired; }USER_INFO_3, *PUSER_INFO_3, *LPUSER_INFO_3;    將上述依樣宣告成Delphi的型式..再把程式裡相關的地方都改成相對應就應該就可以了..    

引言: 抱歉，我已知道怎麼執行了，但是我想抓詳細的資訊要如何做呢？

真抱歉,我不知如何把它轉成 Delphi 的型態,能否教教我 

type USER_INFO_3=packed record usri3_name: PWideChar; usri3_password: PWideChar; usri3_password_age: PDWord; usri3_priv: PDWord; usri3_home_dir: PWideChar; usri3_comment: PWideChar; usri3_flags: PDWord; usri3_script_path: PWideChar; usri3_auth_flags: PDWord; usri3_full_name: PWideChar; usri3_usr_comment: PWideChar; usri3_parms: PWideChar; usri3_workstations: PWideChar; usri3_last_logon: PDWord; usri3_last_logoff: PDWord; usri3_acct_expires: PDWord; usri3_max_storage: PDWord; usri3_units_per_week: PDWord; usri3_logon_hours: PByte; usri3_bad_pw_count: PDWord; usri3_num_logons: PDWord; usri3_logon_server: PWideChar; usri3_country_code: PDWord; usri3_code_page: PDWord; usri3_user_id: PDWord; usri3_primary_group_id: PDWord; usri3_profile: PWideChar; usri3_home_dir_drive: PWideChar; usri3_password_expired: PDWord; end; type PUSER_INFO_3=^USER_INFO_3;

不好意思,請問一下,如果我想抓詳細資訊是否語法如下 Result := Result Info.usri3_name ',' Info.usri3_password ',' Info.usri3_password_age ',' Info.usri3_comment; 但我這樣寫會出現錯誤訊息耶,不知要如何寫

是什麼錯誤????    

引言: 不好意思,請問一下,如果我想抓詳細資訊是否語法如下 Result := Result Info.usri3_name ',' Info.usri3_password ',' Info.usri3_password_age ',' Info.usri3_comment; 但我這樣寫會出現錯誤訊息耶,不知要如何寫

錯誤訊息如下 ProjectProject1.exe raised exception class EAccessViolation with message 'Access violation at address 00403AA3 in module' Project1.exe '.Read of address BAADF00D'.Process stoppped.Use Step or Run to continue.

紅字部份別忘了改~~~    function getUsersName(ServerName: String): String; var Ptr:Pointer; Total:PDWord; Count:PDWord; Resume:PDWord; Info:PUSER_INFO_3; I:Integer; FD:Array[0..255] Of WideChar; begin Result := ''; FError := 0; Resume := nil; StringToWideChar(ServerName, FD, SizeOf(FD)); NetUserEnum(FD, 3, 0, Ptr, 0, Count, Total, Resume); FError := NetUserEnum(FD, 3, 0, Ptr, 256 * Integer(Total), Count, Total, Resume); If FError = 0 Then Begin Info := PUSER_INFO_3(Ptr); For I := 1 To DWord(Count) Do Begin Result := Result Info.usri3_name ', '; Inc(Info); End; End; end;

真抱歉，還是不行，我將我的程式碼貼上來請您看一下，那裡錯了，謝謝！ unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} type USER_INFO_3 = packed record usri3_name : PWideChar; usri3_password : PWideChar; usri3_password_age: PDWord; usri3_priv: PDWord; usri3_home_dir: PWideChar; usri3_comment: PWideChar; usri3_flags: PDWord; usri3_script_path: PWideChar; usri3_auth_flags: PDWord; usri3_full_name: PWideChar; usri3_usr_comment: PWideChar; usri3_parms: PWideChar; usri3_workstations: PWideChar; usri3_last_logon: PDWord; usri3_last_logoff: PDWord; usri3_acct_expires: PDWord; usri3_max_storage: PDWord; usri3_units_per_week: PDWord; usri3_logon_hours: PByte; usri3_bad_pw_count: PDWord; usri3_num_logons: PDWord; usri3_logon_server: PWideChar; usri3_country_code: PDWord; usri3_code_page: PDWord; usri3_user_id: PDWord; usri3_primary_group_id: PDWord; usri3_profile: PWideChar; usri3_home_dir_drive: PWideChar; usri3_password_expired: PDWord; end; type PUSER_INFO_3 = ^USER_INFO_3; function NetUserEnum(ServerName:PWideChar;Level:DWORD;Filter:DWORD;var Buf:Pointer;PrefMaxLen:DWORD; var EntriesRead:PDWord;var TotalEntries:PDWord;var ResumeHandle:PDWord):Longint;stdcall;external 'netapi32.dll' Name 'NetUserEnum'; function getUsersName(ServerName: String): String; var Ptr:Pointer; Total:PDWord; Count:PDWord; Resume:PDWord; Info:PUSER_INFO_3; I,FError:Integer; FD:Array[0..255] Of WideChar; begin FError := 0; Resume := nil; StringToWideChar(ServerName, FD, SizeOf(FD)); NetUserEnum(FD, 3, 0, Ptr, 0, Count, Total, Resume); FError := NetUserEnum(FD, 3, 0, Ptr, 256 * Integer(Total), Count, Total, Resume); If FError = 0 Then Begin Info := PUSER_INFO_3(Ptr); For I := 1 To DWord(Count) Do Begin Result := Result Info.usri3_name ',' Info.usri3_password; Inc(Info); End; End; end; procedure TForm1.Button1Click(Sender: TObject); begin getUsersName('IBM'); end; end.

kwon您程式在我這邊試不會出現任何錯誤訊息囉.....可以很正確的使用..

我使用 getUsersName('IBM'), 傳一個電腦名稱如 IBM 進去,會什麼都沒有,但若傳一個空字串如 getUsersName('') ,這樣的話它預設值是會抓本身自己電腦 USER 帳號,這樣的話就會出現錯誤 因為我想抓網域伺服器的使用者名單 發表人 - kwon 於 2002/10/17 16:51:36

抱歉，現在又沒有問題了，不知道什麼原因?1?!?!?!?!?，再請問，這個程式只能抓本身電腦的帳號，若要抓 PDC Server 的帳號，又要如何做呢？

SererName就是傳入主機名稱... 這個程式不是只有抓本身電腦帳號.. 假設你有A, B, C三台主機..名稱分別為A1, B1, C1 你要抓A1裡的帳號就是getUsersName('A1')..以此類推...    

引言: 抱歉，現在又沒有問題了，不知道什麼原因?1?!?!?!?!?，再請問，這個程式只能抓本身電腦的帳號，若要抓 PDC Server 的帳號，又要如何做呢？

我有試過傳入一個電腦名稱，但是它的 FERROR= 2351，所以傳回空值

我沒辦法囉..在我這邊我抓每一台電腦都能順利成功.. 看看還有沒有其它高手知道你的問題是為什麼囉.....        NERR_Success                      0          No errors encountered.     ERROR_ACCESS_DENIED                      5          The user has insufficient                                           privilege for        this opera-                                           tion.     ERROR_NOT_SUPPORTED                     50          This network request is                                           not supported.     ERROR_BAD_NETPATH                     53          The network path was not                                           found.     ERROR_NETWORK_ACCESS_DENIED             65          Network access is denied.     ERROR_INVALID_LEVEL                    124          Invalid level        parameter.     ERROR_MORE_DATA                    234          More data available,                                           buffer too small.     NERR_RemoteOnly                   2106          This operation can be                                           performed only on a                                           server.     NERR_WkstaNotStarted           2138          The Workstation service                                           is not started.     NERR_BadTransactConfig           2141          The server is        not config-                                           ured for this        transac-                                           tion;         IPC$ is not                                           shared.     NERR_InvalidDatabase           2247          The user accounts data-                                           base file is corrupted.     NERR_InvalidComputer           2351 Invalid computername specified.

引言: 我有試過傳入一個電腦名稱，但是它的 FERROR= 2351，所以傳回空值

發表人 - chiehmin 於 2002/10/17 18:04:09

我照著上面kwon兄貼的程式執行，抓的到usename可是抓不到password??? 而且抓不到我目前正在使用的這個帳號 發表人 - gavinj123 於 2002/10/17 18:30:22

password是抓不到的.....    

引言: 我照著上面kwon兄貼的程式執行，抓的到usename可是抓不到password??? 而且抓不到我目前正在使用的這個帳號 發表人 - gavinj123 於 2002/10/17 18:30:22

請問一下，在抓別台電腦的使用者名單時，該電腦不會出現視窗要您填入帳號及密碼嗎？

請問一下，為何陣列 FD 的內容將 IBM 拆成三個，如 'I','B','M'，而不是 'IBM'？     發表人 - kwon 於 2002/10/17 19:26:52

字元陣列存的當然是字元'I', 'B', 'M'囉...可不是嗎??

引言: 請問一下，為何陣列 FD 的內容將 IBM 拆成三個，如 'I','B','M'，而不是 'IBM'？ 發表人 - kwon 於 2002/10/17 19:26:52