DELPHI 获取域用户名

最新推荐文章于 2024-05-14 16:01:05 发布

原创最新推荐文章于 2024-05-14 16:01:05 发布 · 4.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #function #integer #forms #interface #filter

本文介绍使用Delphi实现网络用户信息枚举的方法，通过调用NetUserEnum函数获取本地或远程计算机上的用户列表，并展示了如何解析返回的数据，包括用户名、密码及用户描述等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls;

type
USER_INFO_1 = record
    usri1_name: LPWSTR;
    usri1_password: LPWSTR;
    usri1_password_age: DWORD;
    usri1_priv: DWORD;
    usri1_home_dir: LPWSTR;
    usri1_comment: LPWSTR;
    usri1_flags: DWORD;
    usri1_script_path: LPWSTR;
end;
lpUSER_INFO_1 = ^USER_INFO_1;
function NetUserEnum(ServerName: PWideChar;Level, Filter: DWord;
                     var Buffer: Pointer;PrefMaxLen: DWord;
                     var EntriesRead,TotalEntries,ResumeHandle: DWord): LongWord;
                     stdcall; external 'netapi32.dll';
function NetApiBufferFree(pBuffer: PByte): LongInt;
                     stdcall; external 'netapi32.dll';

type
TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    RichEdit1: TRichEdit;
    procedure BitBtn1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
EntiesRead: DWORD;
TotalEntries: DWORD;
UserInfo: lpUSER_INFO_1;
lpBuffer: Pointer;
ResumeHandle: DWord;
Counter: Integer;
NetApiStatus: LongWord;
userName,password,userdest:string;
begin
ResumeHandle := 0;
repeat   //枚举本地帐户
    NetApiStatus := NetUserEnum(nil, 1, 0, lpBuffer, 0, EntiesRead,TotalEntries, ResumeHandle);
    UserInfo := lpBuffer;
    for Counter := 1 to EntiesRead - 1 do
    begin
      userName:= WideCharToString(UserInfo^.usri1_name);//获取用户名
      password:= widechartostring(userinfo^.usri1_password);
      userdest:=WideCharToString(UserInfo^.usri1_comment);//获取用户描述
      RichEdit1.Lines.Add(userName+' '+userdest);
    end;
   until (NetApiStatus <> ERROR_MORE_DATA);//枚举下一下用户
NetApiBufferFree(lpBuffer);//释放分配的空间
end;