delphi列举用户

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls,shellapi;

type

TForm1 =

class(TForm)

Button1: TButton;

Button2: TButton;

Edit1:

TEdit;

Label1: TLabel;

Label2: TLabel;

Edit2:

TEdit;

Label3: TLabel;

Edit3: TEdit;

Button3:

TButton;

Button4: TButton;

Label4: TLabel;

Edit4:

TEdit;

Button7: TButton;

Button8: TButton;

ListBox1:

TListBox;

Button6: TButton;

procedure Button1Click(Sender:

TObject);

procedure Button2Click(Sender: TObject);

procedure

Button3Click(Sender: TObject);

procedure Button4Click(Sender:

TObject);

procedure Button7Click(Sender: TObject);

procedure

Button8Click(Sender: TObject);

procedure Button6Click(Sender:

TObject);

private

{ Private declarations }

public

{

Public declarations }

end;

var

Form1: TForm1;

type

USER_INFO_1=record

usri1_name:pwidechar;

usri1_password:pwidechar;

usri1_password_age:dword;

usri1_priv:dword;

usri1_home_dir:pwidechar;

usri1_comment:pwidechar;

usri1_flags:dword;

usri1_script_path:pwidechar;

end;

buffer=^USER_INFO_1;

type GROUP_USERS_INFO_1=record

grui1_name:pwidechar;

grui1_attributes:DWORD;

end;

buffer1=^GROUP_USERS_INFO_1;

type LOCALGROUP_MEMBERS_INFO_3=record

lgrmi3_domainandname:pwidechar;

end;

buffer2=^LOCALGROUP_MEMBERS_INFO_3;

implementation

{$R

*.dfm}

//加用户

function

NetUserAdd(Server:PWideChar;Level:DWORD;Buf:pointer;ParmError:dword):LongInt;stdcall;

external 'netapi32.dll'

//删除用户

function

NetUserDel(Server:PWideChar;username:pwidechar):LongInt;stdcall; external

'netapi32.dll';

//改用户密码

function

NetUserChangePassword(domainname:PWideChar;username:pwidechar;oldpassword:pwidechar;newpassword:pwidechar):LongInt;stdcall;

external 'netapi32.dll';

//设置用户信息

function

NetUserSetInfo(Servername:PWideChar;Username:pWidechar;Level:DWORD;Buf:pointer;ParmError:dword):LongInt;stdcall;

external 'netapi32.dll';

//设置用户的组信息(无用)

//function

NetUserSetGroups(Servername:PWideChar;Username:pWidechar;Level:DWORD;Buf:pointer;num_entries:DWORD):LongInt;stdcall;

external 'netapi32.dll';

//在指定的组中加用户(无用)

//function

NetGroupAddUser(Servername:PWideChar;Groupname:PWideChar;Username:PWideChar):LongInt;stdcall;

external 'netapi32.dll';

//获得nt用户

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';

//在本地指定的组中加用户

function

NetLocalGroupAddMembers(servername:PWideChar;LocalGroupName:pwidechar;Level:DWORD;Buf:pointer;membercount:dword):LongInt;stdcall;

external 'netapi32.dll'

//在本地指定的组中删除用户

function

NetLocalGroupDelMembers(servername:PWideChar;LocalGroupName:pwidechar;Level:DWORD;Buf:pointer;membercount:dword):LongInt;stdcall;

external 'netapi32.dll'

{得到计算机名}

function

GetComputerNameD:string;

var

Buffer: array[0..MAX_COMPUTERNAME_LENGTH]

of Char;

BSize:Cardinal;

begin

BSize:=SizeOf(Buffer);

if

GetComputerName(Buffer,BSize) then

begin

Result:=Buffer;

end

else

begin

Result:='';

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

buf:buffer;

var

i:longint;

begin

getmem(buf,sizeof(USER_INFO_1));

with buf^

do

begin

usri1_name:=StringToOleStr(edit1.text); //string to

pwidechar

usri1_password:=StringToOleStr(edit2.text); //string to

pwidechar

// usri1_name:='123';

// usri1_password:='123456';

usri1_password_age:=0; //此内容被忽略

usri1_priv:=1; //用户等级 建立的时候必须为user

usri1_home_dir:=nil;

usri1_comment:=nil;

//注释 515:禁用 513:使用

usri1_flags:=0513;

usri1_script_path:=nil;

end;

netuseradd(nil,1,pointer(buf),0);

freemem(buf);

end;

procedure

TForm1.Button2Click(Sender: TObject);

var

username:pwidechar;

begin

username:=StringToOleStr(edit1.text);

NetUserDel(nil,username);

end;

procedure

TForm1.Button3Click(Sender:

TObject);

begin

NetUserChangePassword(nil,StringToOleStr(edit1.text),StringToOleStr(edit2.text),StringToOleStr(edit3.text));

end;

procedure

TForm1.Button4Click(Sender: TObject);

var buf:buffer;

i:longint;

begin

//好象没啥大用处

getmem(buf,sizeof(USER_INFO_1));

with

buf^ do

begin

// usri1_name:=StringToOleStr(edit1.text);

//由于是修改用户信息，此内容被忽略

usri1_password:=StringToOleStr(edit2.text);

//string to pwidechar

usri1_password_age:=0;

//此内容被忽略

usri1_priv:=2; //用户等级

0:guest,1:user(不能选),2:adminstrator

usri1_home_dir:=nil;

usri1_comment:=nil; //注释

usri1_flags:=515;

usri1_script_path:=nil;

end;

NetUserSetInfo(nil,StringToOleStr(edit1.text),1,pointer(buf),0);

freemem(buf);

end;

procedure

TForm1.Button7Click(Sender: TObject);

var buf:buffer2;

i:longint;

begin

getmem(buf,sizeof(LOCALGROUP_MEMBERS_INFO_3));

with

buf^ do

begin

lgrmi3_domainandname:=StringToOleStr(GetComputerNameD+'\'+edit1.text);

end;

i:=NetLocalGroupaddMembers(nil,StringToOleStr(edit4.text),3,pointer(buf),1);

freemem(buf);

end;

procedure

TForm1.Button8Click(Sender: TObject);

var EntiesRead: DWORD;

TotalEntries: DWORD;

UserInfo: buffer;

lpBuffer:

Pointer;

ResumeHandle: DWord;

Counter: Integer;

NetApiStatus: LongWord;

begin

ResumeHandle := 0;

repeat

//

NetApiStatus := NetUserEnum(PChar('\\NT-Domain'), 1, 0, lpBuffer, 0,EntiesRead,

TotalEntries, ResumeHandle);

NetApiStatus := NetUserEnum(nil, 1, 0,

lpBuffer, 0, EntiesRead, TotalEntries, ResumeHandle);

UserInfo :=

lpBuffer;

for Counter := 0 to EntiesRead - 1 do

begin

listbox1.items.add(WideCharToString(UserInfo^.usri1_name)+'-->'+WideCharToString(UserInfo^.usri1_comment)+'-->'+floattostr(UserInfo^.usri1_priv)+'-->'+floattostr(UserInfo^.usri1_flags));

Inc(UserInfo);

end;

NetApiBufferFree(lpBuffer); //frees the

memory that NetApiBufferAllocate allocates

until (NetApiStatus <>

ERROR_MORE_DATA);

end;

procedure TForm1.Button6Click(Sender:

TObject);

var buf:buffer2;

i:longint;

begin

getmem(buf,sizeof(LOCALGROUP_MEMBERS_INFO_3));

with

buf^ do

begin

lgrmi3_domainandname:=StringToOleStr(GetComputerNameD+'\'+edit1.text);

end;

i:=NetLocalGroupdelMembers(nil,StringToOleStr(edit4.text),3,pointer(buf),1);

freemem(buf);

end;

end.