NetGroupAddUser

[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;