Const ForAppending = 8 Const TristateFalse = 0 ' Get today's date in YYYYMMDD format and time in HHmmss format strToday = CStr( 10000 * Year( Now ) + 100 * Month( Now ) + Day( Now ) ) lngNow = 1000000 + 10000 * Hour( Now ) + 100 * Minute( Now ) + Second( Now ) strNow = Right( CStr( lngNow ), 6 ) ' Get the current user and computer names Set wshNetwork = CreateObject( "WScript.Network" ) strUser = wshNetwork.UserName strComputer = wshNetwork.ComputerName Set wshNetwork = Nothing ' Create the directory if it doesn't exist Set objFSO = CreateObject( "Scripting.FileSystemObject" ) With objFSO strFolder = .BuildPath( "\\Server\Logs", strToday ) If Not .FolderExists( strFolder ) Then .CreateFolder strFolder End If strLog = .BuildPath( strFolder, strUser & ".log" ) Set objLog = .OpenTextFile( strLog, ForAppending, True, TristateFalse ) objLog.WriteLine strComputer & "," & strToday & "," & strNow objLog.Close Set objLog = Nothing End With Set objFSO = Nothing