Telnet session on user or password error the program must jump to the next host in the Vhosts() list.

[Danie]

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

  crt.Screen.Synchronous = True

   ' This automatically generated script may need to be
   ' edited in order to work correctly.
Sub Main
         

          Dim vHosts(100)
           vHosts(0) = "10.98.32.102"
           vHosts(1) = "10.98.32.242"
           vHosts(2) = "10.0.100.50"

          For Each strHost In vHosts
            If strHost = "" Then Exit For
             ' Make sure we are disconnected before attempting a connection
            If crt.Session.Connected Then crt.Session.Disconnect
             ' Connect to the next host
  
            crt.Session.Connect "/TELNET " & strHostcrt.session.Log (start)
   crt.session.Log (append)
   crt.session.LogFileName = "c:\afc.txt"
   crt.session.Log(true),true

           crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Press Any Key "
  crt.Screen.WaitForString "Enter User Name: "
         crt.Screen.Send chr(13)
                crt.Screen.Send "root" & chr(13)
                crt.Screen.WaitForString "Enter User Password: "
         crt.Screen.Send chr(13)
                 if crt.Screen.WaitForString "Press Any Key " then Continue For else crt.Session.Disconnect

          crt.Screen.WaitForString "[1]: "
  crt.Screen.Send "1" & chr(13)
  crt.Screen.WaitForString "[1]: "
  crt.Screen.Send "10" & chr(13)
  crt.Screen.WaitForString " [3]: "
  crt.Screen.Send "4" & chr(13)
  crt.Screen.WaitForString "Enter IPMI Table Selection [Host Table]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Community Name [office]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host IP Address"
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host UDP Port"
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Basic SNMP Traps"
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "SNMP Authentication Traps"
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "EMS Application Traps"
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "AccessMAX Equipment/Facilities Traps"
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (2nd)"
  crt.Screen.Send "10.101.70.97" & chr(13)
  crt.Screen.WaitForString "Receive Traps"
  crt.Screen.Send "Enabled" & chr(13)
  crt.Screen.WaitForString "Host (3rd) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Receive Traps [Disabled]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (4th) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (5th) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (6th) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (7th) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (8th) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (9th) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Host (10th) [000.000.000.000]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Trusted Host Checking [Disabled]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Read Only Community Name [public]: "
  crt.Screen.Send chr(13)
  crt.Screen.WaitForString "Effect Changes? [No]:"
  crt.Screen.Send "Yes" & chr(13)
  crt.Screen.WaitForString "]"
  crt.Screen.Send "*" & chr(13)
  crt.Screen.WaitForString "]"
  crt.Screen.Send "6" & chr(13)
  crt.Screen.WaitForString "Logged Off"
         crt.Sleep 100
  crt.Screen.Send "any" & chr(13)
         crt.Session.Disconnect
        

        next
End Sub

[mLipok]

Welcome to the forum.

... do you have any question ?

 

btw.
please read

 How to post code on the forum