在W2K下，如何建立用户，用户组？

[ac90]

我想建立一批用户，怎么用编程实现，最好有例子。

[orcher]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
WinExec("net user orcher 1006 /add",0);
WinExec("net localgroup administrators orcher /add",0);
}

[ac90]

如果用WINAPI的NetUserAdd()怎么用？

[codecb]

GZ

[orcher]

http://forumland.km.ru/doc/cbuilder/winfaq/winapifaq19.html

[sncel]

unit Unit1;

interface

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

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;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

function NetUserAdd(Server:PWideChar;Level:DWORD;Buf:pointer;ParmError
: dword):LongInt;
stdcall; external 'netapi32.dll'
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var buf:buffer;
error:pchar;
begin
getmem(buf,sizeof(USER_INFO_1));
with buf^ do
begin
usri1_name:='123e';
usri1_password:='123456789';
usri1_password_age:=0;
usri1_priv:=1;
usri1_home_dir:=nil;
usri1_comment:=nil;
usri1_flags:=1;
usri1_script_path:=nil;
end;
netuseradd(nil,1,pointer(buf),0);
// showmessage(inttostr(netuseradd(nil,1,pointer(buf),0)));
freemem(buf);
end;
end.