; AutoIt Version: 3.10 ; Language: English ; Platform: WinXP ; Author: Matt Marsh ; Script Function: Script that records logon details in log file ; Date: Oct 2005 Dim $sLogPath = "\\mcc-fsc-01\d$\logs.csv" Dim $sLogMsg = "User: " _FileWriteLog($sLogPath, $sLogMsg) Func _FileWriteLog($sLogPath, $sLogMsg) Local $sDateNow Local $sTimeNow Local $sMsg Local $hOpenFile Local $hWriteFile Local $user Local $cname Local $ip $sDateNow = @YEAR & "-" & @MON & "-" & @MDAY $sTimeNow = @HOUR & ":" & @MIN & ":" & @SEC $user = @UserName $cname = @ComputerName $ip = @IPAddress1 $sMsg = $user & ","& $cname & "," &$sDateNow & "," & $sTimeNow $hOpenFile = FileOpen($sLogPath, 1) If $hOpenFile = -1 Then SetError(1) Return 0 EndIf $hWriteFile = FileWriteLine($hOpenFile, $sMsg) If $hWriteFile = -1 Then SetError(2) Return 0 EndIf FileClose($hOpenFile) Return 1 EndFunc