脚本文件:script_name.vbs
#$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
' While 1
crt.Screen.Send "xxxlogin 168.1.1.2,23" & chr(13) & chr(13)
crt.Screen.WaitForString "(none) login: "
crt.Screen.Send "usr_name" & chr(13)
crt.Screen.WaitForString "Password: "
crt.Screen.Send "Passwd" & chr(13)
crt.Screen.WaitForString "-sh-4.2$ "
crt.Screen.Send "telnet 168.1.10.0 xxxx" & chr(13)
crt.Screen.WaitForString "login: "
crt.Screen.Send "xxx" & chr(13)
crt.Screen.WaitForString "password: "
crt.Screen.Send "xxx" & chr(13)
crt.Screen.Send chr(13)
crt.Screen.Send "sh 1" & chr(13)
crt.Sleep 2000
' WEnd
End Sub
DMAZM-WHY52-AX222-ZQJXN-79JXH