Hello,
Untested, but if you connect using -H -S parameters, you can obtain the Database Host Name from the _DB.DB-COMM column:
DEF VAR cDbHostName AS CHARACTER NO-UNDO.
cDbHostName = ENTRY(LOOKUP("-H",_DB._DB-COMM, " ") + 1, _DB._DB-COMM, " ").
Regards,
Daniel