GNS3关联secureCRT脚本,使用更快！！

红色石头

这是我自己试验过的，之前都是研究了很久都不成功，这次又来试了一下，居然成功了。。。以下就是具体的步骤了。。。
在做这个步骤之前，要完成GNS3和secureCRT的安装，再在网上下载个脚本（我脚本的名字是DyRouter.vbs，没有可以跟我要的哦）
我的GNS3S是安装在：C:\Program Files\GNS3，secureCRT是安装在：C:\Program Files\SecureCRT，脚本放在：C：\DyRouter.vbs
我的是windows 7系统实示例：

①  在系统中“我的电脑”上点鼠标右键选择“属性”。在系统属性窗口选择“高级”标签并按“环境变量”按钮；第二步:将环境变量设置窗口中的系统变量里的Path值中在原有的值后面添加SecureCRT6.5.0安装路径，比如我的安装目录 “;C:\Program Files\SecureCRT ”(不含引号)，注意那个红色分号别少了，如下图：

②②在 C:\WINDOWS\system32下生成SecureCRT的快捷图标


③ GNS3-edit----preferences---General---Terminal Settings
在Terminal command下面输入：
start SecureCRT  /SCRIPT C:\DyRouter.vbs  /T /telnet %h %p（XP系统）
start SecureCRT.exe  /SCRIPT C:\DyRouter.vbs  /T /TELNET 127.0.0.1 %p   （VISTA/WIN7）
如下图解步骤：

④基本完成了，接下来我测试一下的，成功。。。如下图：

⑤关于DyRouter.vbs ，是一个脚本，自动回车no登陆设备，自动帮你改hostname为设备名，自动no ip do lo，自动exec-t 0 0,自动logg s 。进入设备直接做实验。如果不需要，请在第三步中将该脚本的路径去除即可。。。。。


这是一个很棒的模拟器，相比cisco的PT模拟器，功能强很多，支持的命令更不用说了。。。希望大家一起讨论、交流、分享的！！！

                                                                                                                                                                                                                                                                                                                                                                           Redstone 编

红色石头

se_541049166

se_541049166

就是用那脚本弄？。。。脚本上传一下。谢谢。

se_541049166

楼主赶紧把脚本贴上！！！！！！！

se_541049166

我的CRT不是安装的，是安装后拷贝的，我没安装序列号。

这个VBS的脚本是不是可以自己弄啊，就是CRT的脚本录制。

ckyuchen

不知道为什么总有这么多人把步骤搞得这么复杂。。  
我只一步就搞定了。直接在GNS里的在Terminal command下面输入：
C:\Program Files\VanDyke Software\SecureCRT\SecureCRT.exe /T /telnet 127.0.0.1 %p
就好了。C:\Program Files\VanDyke Software\SecureCRT是CRT的安装路径。

阿水

hsdsmljj

7楼那个方式比较简单但是没有DyRouter.vbs的许多自动功能，也不能多标签打开。
但是LZ，不知道是不是由于GNS3版本的差别，我的gns3配置如下（WIN7）
F:\securecrt\SecureCRT.exe  /SCRIPT F:\DyRouter.vbs  /T /TELNET 127.0.0.1 %p
之前前面的start没去掉,连接console就报错"Could not start start F:\..."明显是由于多加了一个start。当然也因人而异，如果大家前面加了start不能console，就把start去掉吧。


另外附上DyRouter.vbs脚本代码，网上很多的。
#$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.Send  VbCr
   Dim firstLine
   Dim tabTitle
   firstLine=crt.Screen.Get2(1,1,1,100)
   tabTitle=mysubstring(firstLine,"""","""")
   crt.Window.Caption= tabTitle
   
   If crt.Screen.WaitForString("[yes/no]") 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

把上面这段紫色的字用记事本保存后,重命名为DyRouter.vbs即可.

gzcongzi

谢谢指导！！！

zhanhao456

chantor5

感谢分享

谁家老西儿

7楼好像简单点啊，试试先

ckyuchen

hsdsmljj 发表于 2011-5-17 20:38
7楼那个方式比较简单但是没有DyRouter.vbs的许多自动功能，也不能多标签打开。
但是LZ，不知道是不是由于G ...

这个脚本有些什么功能啊？  介绍下吧。。

123456queyi

谢谢分享