ab588588 发表于 2010-1-4 10:18:27

dyrouter gns+securecrt取设备名的脚本

    不少人都在用gns搭配securecrt做实验吧，这个脚本帮助我们自动命名弹出的securecrt标签。省得看到Localhost1 localhost2……，记得要在命令行模式下输入telnet Rn(n=0,1,2……)这样所有的路由器都在一个窗口里面了。



#$language = "VBScript"
#$interface = "1.0"
Option Explicit
Function mysubstring(srcString,bChar,eChar)
Dim fIndex,sIndex
fIndex=InStr(srcString,bChar)
   sIndex=InStrRev(srcString,eChar)
   mysubstring=Mid(srcString,fIndex+1,sIndex-fIndex-1)   
End Function
'用来得到一个时间字符串，该字符串用来设置路由器的时间和日期
Function ciscoDate()
   dim   em, y,m,d,h
   Dim nowDate
   nowDate=Now()
em=Array("January","February","March","April","May","June","July","August","September","October","November","December")
   y=Year(nowDate)
   m=em(Month(nowDate)-1)
   d=Day(nowDate)
   h=Time()
ciscoDate=h & " " & m & " " & d & " " & y

End Function
Sub main
   On Error Resume Next
   
   crt.Screen.Synchronous = True
   crt.Screen.WaitForString "Console port"
   crt.Screen.SendVbCr
   
   '得到第一行显示文本，主要从中提取设备名称
   Dim firstLine
   '用来存储标签的标题，也就是设备的名称
   Dim tabTitle
   firstLine=crt.Screen.Get2(1,1,1,100) '得到第一行文本
   tabTitle=mysubstring(firstLine,"""","""") '调用方法取两个双引号之间的文本
   crt.Window.Caption= tabTitle
   
   'Dim result
   'result = crt.screen.WaitForStrings("'yes' or 'no'", ":", "RETURN")
   'If result = 1 Then
   'crt.Screen.Send VbCr
   'ElseIf result = 2 Then
   'crt.Screen.Send "no" & VbCr
   'ElseIf result = 3 Then
   'crt.Screen.Send VbCr   
   'Else
   ' crt.Screen.Send VbCr
   'End If
   If crt.Screen.WaitForString("") Then   
   crt.Screen.Send "no" & VbCr
   End If
   crt.Screen.Send VbCr &VbCr
   crt.Screen.WaitForString "Router>"   
   crt.Screen.Send"enable" & VbCr
   crt.Screen.Send "conf terminal" & VbCr
   crt.Screen.Send "no ip domain-lookup " & VbCr
   crt.Screen.Send "hostname " & tabTitle & VbCr
   crt.Screen.Send "line con 0" & VbCr   
   crt.Screen.Send "exec-timeout 0 0" & VbCr   
   crt.Screen.Send "logging synchronous" & VbCr      
   crt.Screen.Send "end" & VbCr
   
crt.Screen.Send "clock set " & ciscoDate() & VbCr
   crt.Screen.Synchronous = False

End Sub


如果上面的不清楚，可以直接下载附件。

看我的gns配置：
start SecureCRT/SCRIPT F:\study\network\CCNP\GN3\DyRouter\DyRouter.vbs/T /telnet %h %p

ljc555 发表于 2010-12-25 11:31:13

善良的大灰狼 发表于 2011-12-27 10:31:37

谢谢～～～

814365385 发表于 2011-12-27 20:12:07

{:6_267:}{:6_280:}{:soso_e179:}

yingtaomu 发表于 2012-6-13 20:27:31

已经有好几个

361618223 发表于 2012-8-2 15:05:20

{:6_265:}

361618223 发表于 2012-8-2 15:06:02

{:6_264:}

361618223 发表于 2012-8-3 14:33:44

{:6_269:}

易拉罐泡泡龙 发表于 2012-8-16 08:51:46

谢谢楼主分享

yiloudesha 发表于 2012-11-10 22:59:01

真心看不懂

yebo2000 发表于 2013-4-1 10:56:29

这个方便

豆豆豆 发表于 2013-6-17 18:39:13

一直在找，非常感谢！！！

ishede 发表于 2013-6-26 15:20:26

下载

Lu边徘徊 发表于 2013-10-1 13:40:46

{:6_267:}{:6_267:}
页: [1]
查看完整版本: dyrouter gns+securecrt取设备名的脚本