NT用户管理

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.