bool __fastcall DLL_EI AddUser(AnsiString Server, AnsiString User, AnsiString Password, AnsiString DBAUser, AnsiString DBAPassword)
{
   bool Result=false;

   try
     {
        if(SrvMgrExists(Server,User,Password))
          Result=MgrUserSrv(Server,Ibservices::ActionAddUser,User,Password,DBAUser,DBAPassword);
        else
          Result=MgrUserAPI(Server,Ibservices::ActionAddUser,User,Password,DBAUser,DBAPassword);
     }
   catch(Exception &eException)
     {
        throw Exception(ExtractFileName(__FILE__)+ "(" +__LINE__+ "): AddUser() " +eException.Message);
     }

   return Result;
}