bash0C7

# -*- coding: utf-8 -*-
abort if ARGV.empty?

initializer = ARGV.shift 
eval(File.read(initializer), binding)
prompt_prefix = File.basename(initializer)

require 'rubygems'
require 'pry'
pry(prompt_prefix)

bash0C7

Public Function convNUMtoHEX(Number As Long) As String
    convNUMtoHEX = CStr(Hex(Number))
End Function

Public Function convHEXtoNUM(HexString As String) As Long
    Const HEXMARK = "&H"
    Const UNSIGN = "&"
    convHEXtoNUM = Val(HEXMARK & HexString & UNSIGN)
End Function

bash0C7

Option Explicit

Private MainKeyCol As Long
Private RowCounter As Long

Private Source As Workbook

Private isReadOnly As Boolean

Property Get EOF() As Boolean

bash0C7

'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")