!location = object location( /REMOTELOC )
!sessions = !location.sessions()
!data = array()
do !sess values !sessions
!data.append(!sess.User().Name & ';' & !sess.Login & ';' & !sess.Entered & ';' & !sess.Module() )
enddo
!file = object file('%pdmsuser%\loggedInUsers.txt')
!file.writefile('overwrite',!data)