求助，关于SecureCRT的多session脚本。哪位高手有现成的？

hujysh

回复 9# wh21667


   
再提供匹配session名称的方法


# $language = “VBScript”
# $interface = “1.0″

Sub Main()
   
    crt.screen.Synchronous = true
      
    Dim Name
    Dim Nametre
    Dim nTabCount
    nTabCount = crt.GetTabCount()
    for index = 1 to nTabCount
    set tab = crt.GetTab(index)
    tab.activate
    If tab.Session.Connected = True Then

    Name =  tab.Caption

   '开始做匹配，并根据匹配的结果输入相应命令   
   Select Case Nametre
   Case "你的会话的名称1"
   '等待1秒钟
    crt.sleep 1000
    tab.Screen.Send "cmd1" & chr(13)
   '等待1秒钟
    crt.sleep 1000
    tab.Screen.Send "cmd2" & chr(13)
    crt.sleep 1000
    ......
   
    '其它session的case
    ......

   '其它  
   Case Else     MsgBox "the name of this session is wrong!"
   End Select

   Else
       MsgBox "this session is not connected,can not input any command!"
   End If
  
   Next  
   
End Sub

wh21667

没lpar,就算20台吧。

树袋熊

我更新了，方法在那里了，你去看吧。
用这个方法你就可以做个项目经理了，从管单台机器到管复数台机器的飞跃。
如果你机器更多我还有更系统的方法告诉你。20台这个办法就足够了。

月吻清风

还要写脚本么？SecureCRT 的Session Option里
Temrminal-->Emulation-->Terminal选Xterm 模式 谢谢

全局改动参照上述设置 在Global Option 设置

wh21667

楼上的可以。。。不过如果是windows的cyg需要在profile 加echo -ne "\e]2;${hostname}\a"

cheungjustin

http://wenku.baidu.com/view/9a14b405cc175527072208ee.html

xiaobaibbb

xshell本身就有这功能了啊