NetGroupAddUser

[steppo]

Hi Christian,

habe immer noch einen Fehler der da heißt:
"A new member could not be added to or removed from the local group because the member does not exist."

Der Benutzer existiert und gehört der Gruppe der "Benutzer" an.
Diesen Benutzer möchte ich nun der Gruppe der "Administratoren" hinzufügen.

Was mache ich falsch.

steppo

[Christian Seehase]

Moin Steppo,

zeig' doch mal, wie Du es gemacht hast.
Normalerweise kommt diese Meldung nur, wenn der User nicht existiert.

[steppo]

Delphi-Quellcode:

function NetLocalGroupAddMembers(const servername: PWChar; const groupname:
  PWChar; const level: Dword; const buf: pointer; const totalentries: DWORD):
  NET_API_STATUS;
  stdcall; external 'netapi32.dll';

procedure Tfrm_Main.RechteVergabe();
type
  LOCALGROUP_MEMBERS_INFO_3 = record
    lgrmi3_domainandname: PWChar;
  end;
var
  lgmiWork: LOCALGROUP_MEMBERS_INFO_3;
  dwResult: DWord;
begin
  lgmiWork.lgrmi3_domainandname := 'Computername\Peter';
  dwResult := NetLocalGroupAddMembers(nil, 'Administratoren', 3, @lgmiWork, 1);
  if dwResult <> 0 then
    ShowMessage(FehlerdiagnoseNetzwerk(dwResult) + inttostr(dwResult))
  else
    ShowMessage('User zur Gruppe der Administratoren hinzugefügt');
end;

Delphi-Quellcode:

procedure Tfrm_Main.cmd_StartClick(Sender: TObject);
begin
  EingabeCheck;

  ComputerNameAendern;

  SaveRegString;

  DomaenenBeitritt;

  RechteVergabe;
end;

[Christian Seehase]

Moin Steppo,

versteh' ich nicht.
Versuch' mal nur den User anzugeben. Auf dem lokalen Rechner funktioniert das auch so.

[steppo]

Danke Christian.
es funktioniert hervorragend!

steppo

[Christian Seehase]

Moin Steppo,

ist nur seltsam, dass es bei Dir nicht mit Angabe des Rechnernamens funktioniert hat. Das ging bei mir nämlich auch problemlos.