zusammenfalten · markieren

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.

  zeromemory(@Member, sizeof(TLocalGroupMembersInfo3)); Hilft das vielleicht weiter?

Nein.. TLocalGroupMembersInfo3 hat nur ein Feld und das wird ausgefüllt. Hab grad festgestellt, dass der String von "lgrmi3_domainandname" nicht mit "\\" beginnen darf... lässt man das weg funktioniert es.. sonst braucht man es überall, hmpf