VBScriptでログファイルを出力するサンプルです。

Call SysWriter("ログメッセージ", "c:\tmp\test.txt")

'** ファイルに書き込み処理
'**  str ログメッセージ
'**  path ファイルパス
'**************************************************
Sub SysWriter(str,path)

Dim fso, fi
Set fso = CreateObject("Scripting.FileSystemObject")

'ファイルを開く
 'もしも存在しない場合には作成する
Set fi = fso.OpenTextFile(path, 8, true)

fi.WriteLine (Date() & " " & Time() & ": " & str) 'ログを書き込む
Set fi = Nothing

End Sub

Pocket