Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f, msg
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\remote.txt", ForReading) msg = f.Read(5) wscript.echo msg
Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f, msg
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\remote.txt", ForReading) msg = f.Read(5) wscript.echo msg