Delphi-Quellcode:
function AddToGroup(const Server, User, Group: WideString): NET_API_STATUS;
var
s: WideString;
Member: TLocalGroupMembersInfo3;
begin
Result := NERR_BASE;
if (User <> '') and (Group <> '') and (Server <> '') then
begin
s := Server + '\' + User;
Member.lgrmi3_domainandname := PWideChar(s);
Result := NetLocalGroupAddMembers(PWideChar(Server), PWideChar(Group), 3,
@Member, 1);
end;
end;
Mein Problem ist, dass die Funktion meint, die Gruppe würde nicht existieren, obwohl der Benutzer definitiv vorher angelegt wird.
Ich habe echt keinen Schimmer, wo ran es liegen könnte dass er die Gruppe nicht kennt.