Я использую в приложении на открытии и закрытии вот такое:

string pk1,pk2

//имяПК:
rc = RegistryGet("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultUserName", RegString!, pk1)

//уч.запись:
rc = RegistryGet("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName", RegString!, pk2)

select first
isnull((SELECT CONNECTION_PROPERTY ('NodeAddress')),''),
isnull((SELECT CONNECTION_PROPERTY ('Number')),''),
isnull((SELECT CONNECTION_PROPERTY ('appinfo')),'')
into :ls_ipAddress,:ls_Numberconnect, :ls_appinfo
from dummy;

добавляю пользователя, время компьютера, сервера и т.д. что надо.

и еще в отдельном окне результаты процедуры:

ALTER PROCEDURE "Vit"."sp_conn_activ"()
result(Number integer,Userid varchar(255),NodeAddr varchar(255),Name varchar(255),LastReqTime timestamp)
/* формирует список пользователей, подключенных к базе данных */
/* созд.23-01-2007 ЖВВ изм.**-**-2007 */
begin
declare connid integer;
declare local temporary table t_conn_info(
Number integer null,
Userid varchar(255) null,
NodeAddr varchar(255) null,
Name varchar(255) null,
LastReqTime timestamp null
)
in SYSTEM not transactional;
set connid=next_connection(connid,null);
lbl:
loop
if connid is null then
leave lbl
end if;
insert into t_conn_info values(
connid,
connection_property('Userid',connid),
connection_property('NodeAddress',connid),
connection_property('Name',connid),
DATETIME(connection_property('LastReqTime',connid))
);
set connid=next_connection(connid,null)
end loop lbl;
select * from t_conn_info order by Userid
end


Может Вам пригодится.