xshell自动登录交换机的vbs脚本

Sub Main
xsh.Screen.Send "你的密码"
xsh.Screen.Send vbCr
xsh.Screen.WaitForString ">"
xsh.Screen.Send "en"
xsh.Screen.Send vbCr
xsh.Screen.WaitForString "Password:"
xsh.Screen.Send "你的密码"
xsh.Screen.Send vbCr
End Sub