[FB] Neuen User im Netzwerk anlegen

[Hansa]

Hi,

wie lege ich einen neuen User an (zur Laufzeit) ? Habe mich an dem Beispiel in der OH orientiert :

Delphi-Quellcode:

with UserService do begin
showmessage (DBName);
  ServerName := DBName;
//  ServerName := 'Poulet';
  LoginPrompt := False;
  Params.Add('user_name=sysdba');
  Params.Add('password=masterkey');
  Active := True;
    try
      UserName := 'TEST';
      FirstName := '1';
      MiddleName := '2';
      LastName := '3';
      UserID := 4;
      GroupID := 5;
      Password := 'TESPW';
      AddUser;
    finally
      Active := False;
    end;
  end;

Zu diesem Zeitpunkt ist auch die richtige DB bereits geöffnet. An der Stelle mit dem Hähnchen liegts wohl. Die showmessage zeigt den richtigen Namen an, also in diesem Fall im Format "SERVER:C:\DB\DB.FDB" Der Name wird vorher ermittelt, an die Variable DBName übergeben. Das Ganze wird auch überall im Programm verwendet ohne Fehler.

Nun kommt aber folgende Exception : "Unavailable Resource. Cannot Attach to Services-Manager. Service C:\DB\DB.FDB Services-mgr is not defined." Vom Servernamen ist da keine Rede. 8)