WorkLogger.vbs

WorkLogger.vbs

'1 line ver
CreateObject("Scripting.FileSystemObject").OpenTextFile(CreateObject("Scripting.FileSystemObject").BuildPath(CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName), "worklog_" & WScript.CreateObject("WScript.Network").ComputerName & ".txt"), 8, True).WriteLine date & vbtab & time & vbTab & InputBox("Comment", WScript.ScriptName)

'3 line ver
With CreateObject("Scripting.FileSystemObject") 
    .OpenTextFile(.BuildPath(.GetParentFolderName(WScript.ScriptFullName), "worklog_" & WScript.CreateObject("WScript.Network").ComputerName & ".txt"), 8, True).WriteLine date & vbtab & time & vbTab & InputBox("Comment", WScript.ScriptName)
End With

'4 line (basic)
With CreateObject("Scripting.FileSystemObject") 
    With .OpenTextFile(.BuildPath(.GetParentFolderName(WScript.ScriptFullName), "worklog_" & WScript.CreateObject("WScript.Network").ComputerName & ".txt"), 8, True)
        .WriteLine date & vbtab & time & vbTab & InputBox("Comment", WScript.ScriptName)
        .Close
    End With
End With