C:\Omnicell_UpdateRDS\Update_working\Programme>Mach4Script.exe  -l C:\Program Files\Firebird\Firebird_3_0\WOW64\fbclient.dll C:\RD\azTFS\Technik\MACH4\DataBase\test_Create.sql                                                              MACH4 IBEScript Version 2022.5.24.1 Copyright (c) 2002-2021 IBExpert Ltd (www.ibexpert.com)                                                                                                                                                  
Executing script: C:\RD\azTFS\Technik\MACH4\DataBase\test_Create.sql
(Line: 13) : Creating database 'C:\Mach4\Database_Empty\MEDIMAT.FDB'... using C:\Program Files\Firebird\Firebird_3_0\WOW64\fbclient.dll... FAILED!

Error in script: C:\RD\azTFS\Technik\MACH4\DataBase\test_Create.sql
Error occurred while executing following statement (line 13):
--------  STATEMENT ----------
CREATE DATABASE 'C:\Mach4\Database_Empty\MEDIMAT.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 8192
DEFAULT CHARACTER SET ISO8859_1 COLLATION ISO8859_1

--------  ERROR ----------
Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.
Error occurred during login, please check server firebird.log for details.
-------------------------------------------------------------------------------------------------------------
SQLCODE: -902
SQLSTATE: 08006
GDSCODE: 335545106


Script executed with errors.                                                                                                                                                                                                                 Total execution time: 31ms

SET SQL DIALECT 3;


 SET CLIENTLIB  "C:\Program Files\Firebird\Firebird_3_0\WOW64\fbclient.dll";

SET NAMES ISO8859_1;

CREATE DATABASE 'C:\Mach4\Database_Empty\MEDIMAT.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 8192
DEFAULT CHARACTER SET ISO8859_1 COLLATION ISO8859_1;

C:\Omnicell_UpdateRDS\Update_working\Programme>Mach4Script.exe  -l C:\Program Files\Firebird\Firebird_3_0\WOW64\fbclient.dll C:\RD\azTFS\Technik\MACH4\DataBase\test_Create.sql                                                              MACH4 IBEScript Version 2022.5.24.1 Copyright (c) 2002-2021 IBExpert Ltd (www.ibexpert.com)                                                                                                                                                  
Executing script: C:\RD\azTFS\Technik\MACH4\DataBase\test_Create.sql
(Line: 13) : Creating database 'C:\Mach4\Database_Empty\MEDIMAT.FDB'... using gds32.dll... FAILED!

Error in script: C:\RD\azTFS\Technik\MACH4\DataBase\test_Create.sql
Error occurred while executing following statement (line 13):
--------  STATEMENT ----------
CREATE DATABASE 'C:\Mach4\Database_Empty\MEDIMAT.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 8192
DEFAULT CHARACTER SET ISO8859_1 COLLATION ISO8859_1

--------  ERROR ----------
Firebird error.
unknown ISC error 335545106.
----------------------------
SQLCODE: -999
SQLSTATE: HY000
GDSCODE: 335545106


Script executed with errors.                                                                                                                                                                                                                 Total execution time: 94ms

fb_lib := MainIniFile.ReadString('SYSTEM', 'firebird', '');
if fb_lib <> '' then
begin
  fb_lib := ExpandFileName(fb_lib);
  SetGlobalEnvironment('FIREBIRD', fb_lib);
end else
  fb_lib := GetFirebirdPath;

if not DirExists(fb_lib) then
  fb_lib := ''
else
  AddDllDirectory(fb_lib);

SetGlobalEnvironment('FIREBIRD_MSG', GetGlobalEnvironment('FIREBIRD'));

function SetGlobalEnvironment(const Name, Value: string; const Local: Boolean = True;
  const User: Boolean = True): Boolean;
resourcestring
  REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\Environment';
  REG_USER_LOCATION = 'Environment';
begin
  Result := Local;
  SetEnvironmentVariable(PChar(Name), PChar(Value));
  if not Result then
  with TRegistry.Create do
  try
    if User then { User Environment Variable }
      Result := OpenKey(REG_USER_LOCATION, True)
    else { System Environment Variable }
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      Result  := OpenKey(REG_MACHINE_LOCATION, True);
    end;
    if Result then
    begin
      WriteString(Name, Value); { Write Registry for Global Environment }
      { Update Current Process Environment Variable }
      SetEnvironmentVariable(PChar(Name), PChar(Value));
      { Send Message To All Top Window for Refresh }
      SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('Environment')));
    end;
  finally
    Free;
  end;
end;