(defun hk-osdm-end-work ()
	(setf hk_log_file_name (format nil "~A~A~A" "c:/temp/"(machine-instance)".log"))
	(with-open-file (output-stream hk_log_file_name :direction :output :if-exists :append :if-does-not-exist :create) 
	(format output-stream (format nil "LoginName:~A(~A) LogoutTime:~A~%" (machine-instance)(sd-sys-getenv "USERNAME")(hk-datum-erstellen))))
);;defun


(oli::sd-subscribe-event oli::*SD-TERMINATE-EVENT* 'hk-osdm-end-work)