Need some brain storm here, boys n girls!

I’ve done a small program using kixfroms, placed on a network share, and executed by several users directly from the share.

And now:

I need to collect info (logfile) about which users are currently using the program.
A logfile generated containing @Userid and date/time for when that user start the program and when exiting the program. Some kind of time stamp, in and out!

Function TDinout

$date = Join(Split(@date,"/"),"")
$file = $date+'.log'
$path = '\\server\folder\logdir

if $form.visible
$ = Open(1,$path +'\'+$Sfile,5)
$ = WriteLine(1,@USERID+ " Open instance"+@CRLF)
$ = WriteLine(1,@DATE+" "+@TIME+ @CRLF)
$ = Close(1)
endif

if $form.hide
$ = Open(1,$path +'\'+$Sfile,5)
$ = WriteLine(1,@USERID+ " Close instance"+@CRLF)
$ = WriteLine(1,@DATE+" "+@TIME+ @CRLF)
$ = Close(1)
endif

EndFunction

Suggestion please :-)
_________________________
"... Great minds talk about idea' s, average minds talk about events and samll minds talks about people...!"