sample.vbs
Dim objFSO,objFile
'1:読み取り 2:上書き 8:追加
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("出力するフォルダパス+ファイル名",ForAppending,True)
objFile.WriteLine("出力するメッセージ")
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing