Or mayby...

Based on maciep code, Jochen point and Docs comment....

Function LogIt($action)

$DTM = Join(Split(@date,"/"),"")
$IPA = Join(Split(@IPADDRESS0,"."),"")

$LIG = $IPA+@userid

$WIP = @IPADDRESS0
$WUS = @USERID

$File = @USERID+".ini"
$LogF = $DTM+'.ini'
$Path = "\\Server\Share\ScriptDir\"
$PNF = $Path+$File

If $action = ("Open")

$ = Open(1,$Path+$File,5)
$ = WriteLine(1,"["+$LIG+"]"+@crlf)
$ = WriteLine(1,"ID="+$WUS+@crlf)
$ = WriteLine(1,"IP="+$WIP+@crlf)
$ = WriteLine(1,"Opened="+@time+@crlf)
$ = WriteLine(1,""+@crlf)
$ = Close(1)

EndIf


If $action = ("Close")

$RIN = ReadProfileString($PNF,"","")

For Each $RINs in Split($RIN,Chr(10))

If $RINs

$RID = ReadProfileString($PNF,$RINs,"ID")
$RIP = ReadProfileString($PNF,$RINs,"IP")
$ROP = ReadProfileString($PNF,$RINs,"Opened")
$RCL = ReadProfileString($PNF,$RINs,"Closed")

If $RIP = $WIP AND $RID = $WUS

$ = Open(1,$Path+$LogF,5)

$ = WriteLine(1,"["+$RID+"]"+@crlf)
$ = WriteLine(1,"IP="+$RIP+@crlf)
$ = WriteLine(1,"Opened="+$ROP+@crlf)
$ = WriteLine(1,"Closed="+@time+@crlf)
$ = WriteLine(1,""+@crlf)

$ = WriteProfileString($PNF,$RINs,$RCL,@time)

$ = Close(1)

EndIf

EndFunction
_________________________
"... Great minds talk about idea' s, average minds talk about events and samll minds talks about people...!"