SecureCRT 手动全部Tab窗口重连

        在工作了一天后，到第二天上班的时候，前一天连接的服务会断开，因为公司内部网络自动断开了，所以一个个重新连接和登录 ，用脚本轻松搞定。

# $language = "VBScript"
# $interface = "1.0"

Dim g_objTab 
Set g_objTab = crt.GetScriptTab

Dim nIndex
For nIndex = 1 to crt.GetTabCount
	Set objCurrentTab = crt.GetTab(nIndex)
	objCurrentTab.Activate
	' Skip tabs that aren't connected
	If objCurrentTab.Session.Connected = False then
		'connect the server
		objCurrentTab.Session.Connect
		crt.Sleep 800
		If objCurrentTab.Session.Connected = True then
			'use sudo su login
			objCurrentTab.Screen.Send "sudo su" &vbcr
		End IF	
	End If
Next

 因为默认是普通用户进行的登录，所以登录后还需要用 sudo su 到超级用户才能正常工作，然后还可以在特定窗口切换到指定的代码目录下，完美。