SecureCRT使用脚本批量SSH登录无法处理对话框

重光 发布于 2018/08/20 17:46
阅读 861
收藏 1

背景:以前都是使用SecureCRT批量telnet登录交换机采集信息,但是现在要改成SSH登录,出现了一些我不能解决的问题。

问题:

1、以前使用SecureCRT的脚本批量telnet登录设备时未出现交换对话框,直接就可以登录上去了,但是现在出现的交互对话框,需要选择一个选项以后确认,凭我半吊子的脚本编写能力,我暂时写不出自动确认的语句,暂时只能求助大神了。

2、使用SecureCRT脚本批量登录设备时,时不时出现“移植向导”造成登录失败,即使删除了congfig文件,重新上生成也时不时会出现移植,SecureCRT版本是:5.1.3,使用8.0的版本可能会影响性能。

	Dim blnLogin,login,SSH2,port,objTab
	'set objTab = crt.GetActiveTab
	'set objScreen = objTab.Screen
	Falg = 0
	blnLogin = 0
	crt.Screen.Synchronous = True
	SSH2="/SSH2 /L"
	port="/P 22 /PASSWORD"
	login = SSH2 &" "& strUserName &" "& port &" "& strPasswd & " /C 3DES /M MD5 " & strRouter 
	crt.session.Connect (login)
	'objScreen.SendKeys "13"
	'crt.Screen.WaitForStrings "ogin:", "sername:", TIMEOUT1
	'crt.Screen.Send strUserName & vbCr
	'crt.Screen.WaitForString "assword:", TIMEOUT
	'crt.Screen.Send strPasswd & vbCr
	do Until crt.Screen.WaitForString("[Y/N]:", 3) = False
		crt.Screen.Send "N" & vbCr
	Loop

 

加载中
返回顶部
顶部