Telnet scripted using vbscript

Set obj = CreateObject("WScript.Shell")
obj.run"cmd"
WScript.Sleep 500
 

cnt=0
mrn = "508589"
initials = "O "
name = "xxx"
obj.SendKeys"telnet 10.2.10.7 -f log.txt"
obj.SendKeys("{Enter}")
WScript.Sleep 150
obj.SendKeys"xxx"  'telnet username
obj.SendKeys("{Enter}")
WScript.Sleep 50
obj.SendKeys"xxx"  'telnet password
obj.SendKeys("{Enter}")
WScript.Sleep 500
obj.SendKeys"1"
obj.SendKeys("{Enter}")
WScript.Sleep 300
obj.SendKeys("STJPC2")
WScript.Sleep 300
obj.SendKeys("{Enter}")
obj.SendKeys("{Enter}")
obj.SendKeys("{Enter}")
obj.SendKeys"1"
obj.SendKeys("{Enter}")
obj.SendKeys(MRN)
obj.SendKeys("{Enter}")
obj.SendKeys(initials)
obj.SendKeys("{Enter}")
obj.SendKeys("{Enter}")
obj.SendKeys("{Enter}")
obj.SendKeys("{Enter}")
'**** appears in log file - parse it!
obj.SendKeys("{PGUP}")
obj.SendKeys("{Down}")
obj.SendKeys("{PGUP}")
obj.SendKeys("{Down}")
obj.SendKeys("{PGUP}")
obj.SendKeys("{Down}")
obj.SendKeys("{PGUP}")
obj.SendKeys("{Down}")
WScript.Sleep 3000

Dim objFSO, filepath, objInputFile, tmpStr, substrToFind
Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = "C:\Documents and Settings\john.oconnor\log.txt"
'substrToFind = "Specimen No :"
Set objInputFile = objFSO.OpenTextFile(filepath)
Do until objInputFile.AtEndOfStream
    cnt = cnt+1
    tmpStr = objInputFile.ReadLine
    'msgbox tmpstr
    If foundStrMatch(tmpStr)=true Then
       ' If foundFirstMatch = false Then
       '     index = getIndex(tmpStr)
       '     foundFirstMatch = true
       '     text = text & vbCrLf & textSubstitution(tmpStr,index,"true")
       ' End If
       ' If index = getIndex(tmpStr) Then
       '     text = text & vbCrLf & textSubstitution(tmpStr,index,"false")
       ' ElseIf index < getIndex(tmpStr) Then
       '     index = getIndex(tmpStr)
       '     text = text & vbCrLf & textSubstitution(tmpStr,index,"true")
       ' End If
    msgbox "found line: " & cnt
    'Else
    '    text = text & vbCrLf & textSubstitution(tmpStr,index,"false")
    End If
Loop
'Set objOutputFile = objFSO.CreateTextFile("C:\VBS\NuovaProva.txt", ForWriting, true)
'objOutputFile.Write(text)
'End Sub
msgbox cnt

Function textSubstitution(tmpStr,index,foundMatch)
Dim strToAdd
strToAdd = "<tr><td><a href=" & chr(34) & "../../Logs/CF5.0_Features/Beginning_of_CF5.0_Features_TC" & CStr(index) & ".html" & chr(34) & ">Beginning_of_CF5.0_Features_TC" & CStr(index) & "</a></td></tr>"
If foundMatch = "false" Then
    textSubstitution = tmpStr
ElseIf foundMatch = "true" Then
    textSubstitution = strToAdd & vbCrLf & tmpStr
End If
End Function

Function getIndex(tmpStr)
Dim substrToFind, charAtPos, char1, char2
substrToFind = "<tr><td><a href=" & chr(34) & "../Test case "
charAtPos = len(substrToFind) + 1
char1 = Mid(tmpStr, charAtPos, 1)
char2 = Mid(tmpStr, charAtPos+1, 1)
If IsNumeric(char2) Then
    getIndex = CInt(char1 & char2)
Else
    getIndex = CInt(char1)
End If
End Function
Function foundStrMatch(tmpStr)
Dim substrToFind
substrToFind = "Serum"
msgbox tmpstr
Set re = New RegExp
with re
 .IgnoreCase = True
 .Global = False
 .Pattern = "^\d{2}/\d{2}/\d{4} "
end with

if re.test(tmpStr) then
  msgbox objMatch.Value & " " &cnt
end if
End Function