Telnet scripted using vbscript

Dr Nic

Hi there,
Im using vbscript to automate a telnet login, then store all the output into a log file before using vbscript regex to parse the data, but im struggling...

Heres my code...

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

Oops sorry, meeting on... i'll post my q later...
Thank you!

Dr Nic

cscript minusf.vbs

Dr Nic

Cripes telnet is awful clunky. I cant understand why anyone would use it. vbscript is nice however. My script is working now pretty much.
I'll post it later...

MyPeopleDrankTheSoup

because nobody really uses it anymore, it's all SSH now and has been for a long time. i see it's a local IP address you're connecting to so I presume the sysadmins ensure telnet is safe to use locally.

srsly78

A unix a tool called "expect" makes this kind of remote scripting really easy.

Dr Nic

cant use unix, have to use vbscript :-(
Maybe can use activeX telnet component ...
This sendkeys thing is a disaster though. its so flakey