Well I finally got around to writing a script in order log into all my lab routers.  Why?  I got tired of typing R1, then password, breaking out and going to the next.  When you connect to 8 routers for every lab, it takes time.
So, below is the script I use for my SecureCRT session.    Pretty simple, just did a record of the first two and then edited the rest of them in.
It can also be found here for easier reading:
http://pastebin.com/NUdBENdc
—————————————————————–
#$language = “VBScript”
#$interface = “1.0”
crt.Screen.Synchronous = True
Sub Main
 crt.Screen.Send “r1” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R1#”
 crt.Screen.Send chr(30) & “x2” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “r2” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R2#”
 crt.Screen.Send chr(30) & “x3” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “r3” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R3#”
 crt.Screen.Send chr(30) & “x4” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “r4” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R4#”
 crt.Screen.Send chr(30) & “x5” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “r5” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R5#”
 crt.Screen.Send chr(30) & “x6” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “r6” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R6#”
 crt.Screen.Send chr(30) & “x7” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “r7” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R7#”
 crt.Screen.Send chr(30) & “x8” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “r8” & chr(13)
 crt.Screen.WaitForString “Password: ”
 crt.Screen.Send “PassWord” & chr(13)
 crt.Screen.Send chr(13)
 crt.Screen.WaitForString “Rack1R8#”
 crt.Screen.Send chr(30) & “x9” & chr(13)
 crt.Screen.WaitForString “TS1#”
 
 crt.Screen.Send “1” & chr(13)
End Sub