SecureCRT.VBS Script with Auto Prompt

Hello all,

I've put togeather this basic .vbs script for auto logon. It prompts the user for the rack password and rack number. All you have to do is save the below syntax as a .vbs extesion, then in the toolbar menu in SecureCRT, click Script, then "Run" then browse to where you saved the .vbs file.

This file does not need to be modified as the variables are set when you enter the details at the prompt. As I get alot of DSL lag I've set alot of carrage returns in the syntax. Feel free to edit and optmise as you see fit. If you get mega lag on bad connections sometimes you have to press enter on each tab to get the hash prompt. When I had normal broadband this wasn't an issue, but whatever.

Enjoy!

Sub Main
  crt.Screen.Synchronous = True

  Dim passwd, objr1, rack, objr2, objr3, objr4, objr5, objr6, objsw1, objsw2, objsw3, objsw4, objsw5
   

     set objr1 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         passwd = crt.Dialog.Prompt("Enter Rack Password " & host, "Username", "", True)
         rack = crt.Dialog.Prompt("Enter rack Number " & host, "Username", "", True)
         objr1.Screen.WaitForString "Username:"
         objr1.Screen.Send "rsrack" + rack + "r1"& vbCr
         objr1.Screen.WaitForString "assword:"
         objr1.Screen.Send passwd & vbCr
         objr1.Sleep 2500
         objr1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr1.Sleep 2500
         objr1.Screen.Send vbCr & vbCr
         objr1.Screen.WaitForString "#"     
         objr1.Screen.Send "Ready Player One?"
              
     set objr2 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objr2.Screen.WaitForString "Username:"
         objr2.Screen.Send "rsrack" + rack + "r2"& vbCr
         objr2.Screen.WaitForString "assword:"
         objr2.Screen.Send passwd & vbCr
         objr2.Sleep 2500
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr2.Sleep 2500
         objr2.Screen.Send vbCr & vbCr
         objr2.Screen.WaitForString "#"
         objr2.Screen.Send "Ready Player One?"
   
     set objr3 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objr3.Screen.WaitForString "Username:"
         objr3.Screen.Send "rsrack" + rack + "r3"& vbCr
         objr3.Screen.WaitForString "assword:"
         objr3.Screen.Send passwd & vbCr
         objr3.Sleep 2500
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr3.Sleep 2500
         objr3.Screen.Send vbCr & vbCr
         objr3.Screen.WaitForString "#"
         objr3.Screen.Send "Ready Player One?"
   
     set objr4 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objr4.Screen.WaitForString "Username:"
         objr4.Screen.Send "rsrack" + rack + "r4"& vbCr
         objr4.Screen.WaitForString "assword:"
         objr4.Screen.Send passwd & vbCr
         objr4.Sleep 2500
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr4.Sleep 2500
         objr4.Screen.Send vbCr & vbCr
         objr4.Screen.WaitForString "#"
         objr4.Screen.Send "Ready Player One?"

     set objr5 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objr5.Screen.WaitForString "Username:"
         objr5.Screen.Send "rsrack" + rack + "r5"& vbCr
         objr5.Screen.WaitForString "assword:"
         objr5.Screen.Send passwd & vbCr
         objr5.Sleep 2500
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr5.Sleep 2500
         objr5.Screen.Send vbCr & vbCr
         objr5.Screen.WaitForString "#"
         objr5.Screen.Send "Ready Player One?"

     set objr6 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objr6.Screen.WaitForString "Username:"
         objr6.Screen.Send "rsrack" + rack + "r6"& vbCr
         objr6.Screen.WaitForString "assword:"
         objr6.Screen.Send passwd & vbCr
         objr6.Sleep 2500         
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objr6.Sleep 2500
         objr6.Screen.Send vbCr & vbCr
         objr6.Screen.WaitForString "#"
         objr6.Screen.Send "Ready Player One?"
           
     set objsw1 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objsw1.Screen.WaitForString "Username:"
         objsw1.Screen.Send "rsrack" + rack + "sw1"& vbCr
         objsw1.Screen.WaitForString "assword:"
         objsw1.Screen.Send passwd & vbCr
         objsw1.Sleep 2500   
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw1.Sleep 2500
         objsw1.Screen.Send vbCr & vbCr
         objsw1.Screen.WaitForString "#"
         objsw1.Screen.Send "Ready Player One?"
     
     set objsw2 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objsw2.Screen.WaitForString "Username:"
         objsw2.Screen.Send "rsrack" + rack + "sw2"& vbCr
         objsw2.Screen.WaitForString "assword:"
         objsw2.Screen.Send passwd & vbCr
         objsw2.Sleep 2500         
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw2.Sleep 2500
         objsw2.Screen.Send vbCr & vbCr
         objsw2.Screen.WaitForString "#"
         objsw2.Screen.Send "Ready Player One?"
     
     set objsw3 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objsw3.Screen.WaitForString "Username:"
         objsw3.Screen.Send "rsrack" + rack + "sw3"& vbCr
         objsw3.Screen.WaitForString "assword:"
         objsw3.Screen.Send passwd & vbCr
         objsw3.Sleep 2500
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw3.Sleep 2500
         objsw3.Screen.Send vbCr & vbCr
         objsw3.Screen.WaitForString "#"
         objsw3.Screen.Send "Ready Player One?"
     
     set objsw4 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objsw4.Screen.WaitForString "Username:"
         objsw4.Screen.Send "rsrack" + rack + "sw4"& vbCr
         objsw4.Screen.WaitForString "assword:"
         objsw4.Screen.Send passwd & vbCr
         objsw4.Sleep 2500         
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw4.Sleep 2500
         objsw4.Screen.Send vbCr & vbCr
         objsw4.Screen.WaitForString "#"
         objsw4.Screen.Send "Ready Player One?"   
       
     set objsw5 = crt.Session.ConnectInTab ("/TELNET racks.ine.com 23")
         objsw5.Screen.WaitForString "Username:"
         objsw5.Screen.Send "rsrack" + rack & vbCr
         objsw5.Screen.WaitForString "assword:"
         objsw5.Screen.Send passwd & vbCr & vbCr
         objsw5.Sleep 2500   
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5Screen.Send vbCr & vbCr vbCr & vbCr vbCr & vbCr
         objsw5.Sleep 2500
         objsw5.Screen.Send vbCr & vbCr
         objsw5.Screen.WaitForString "#"
         objsw5.Screen.Send "Ready Player One?"     

End Sub