Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInFile = objFSO.OpenTextFile("C:\input.txt", 1)

Do Until objInFile.AtEndOfStream

strLine = objInFile.Readline

Wscript.Echo strLine

Loop

strCont = objInFile.ReadAll

Wscript.Echo strCont