>>114
Option Explicit

WatchFile WScript.Arguments(0)

Sub WatchFile(FilePath)
　Dim Fso
　Set Fso = CreateObject("Scripting.FileSystemObject")

　Dim Stream
　Set Stream = Fso.GetFile(FilePath).OpenAsTextStream

　Do
　　Do Until Stream.AtEndOfStream
　　　WScript.StdOut.Write Stream.Read(4096)
　　Loop

　　WScript.Sleep 33
　Loop
End Sub