function readalltextfile(filename)
dim fso,file
set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile(filename)
if not file.atendofstream then
readalltextfile = file.readall
end if
file.close
end function
sub watch
dim filename,text,size,newsize
size = 0
filename = "c:\...\debugout.txt"
do
text = readalltextfile(filename)
newsize = len(text)
if newsize > size then
text = mid(text, size + 1, newsize - size)
wscript.stdout.write text
size = newsize
end if
wscript.sleep 1000
loop
end sub
watch