Windows Benutzer erstellen

[fadz]

das hab ich auch versucht hier der code

Code:

function TForm1.AddUser(const Server, User: WideString): NET_API_STATUS;
const
  DOMAIN_GROUP_RID_USERS = $00000201;
var
  ui3          : TUserInfo3;
  NetError     : DWORD;
begin
  NetError := 0;
  if User <> '' then
  begin
    ZeroMemory(@ui3, sizeof(TUserInfo3));
    ui3.usri3_name := PWideChar(User);
    ui3.usri3_primary_group_id := DOMAIN_GROUP_RID_USERS;
    //NetError := NetUserAdd(PWideChar(Server), 3, @ui3, nil);
  end;
  result := NetError;
end;

procedure TForm1.AddClick(Sender: TObject);
var a: NET_API_STATUS;
begin
a:=AddUser('fadz',EName.text);
end;

aber ich finde den benutzer nirgendswo ?

von daher stimmt da doch wsa net bei meinem zeug oder ?