# $language = "VBScript"
# $interface = "1.0"

Sub main

' Open a file, read it in & send it one line at a time
Dim fso, f, str
Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\work\file.txt", ForReading, 0)

Do While f.AtEndOfStream <> True
     str = f.Readline
     snt.Send str & Chr(10) & Chr(13)
     ' This script must send to something on the host with
     ' the ability to handle the data, such as an text editor
     ' that is in insert mode.  If the host application provides
     ' some type of ready prompt, then the new two lines can be used.
     ' Wait for my prompt before sending another line
     'snt.WaitForString("/home/zkrr01 $")
     snt.Sleep(1000)
     Loop
End Sub