在SecureCRT中使用vbs脚本不能批量登录，具体问题请看报错

SecureCRT菜单“脚本->运行...”可以调用VBS。

不过这个VBS需要遵循如下格式：

12345

#

$language

=

"VBScript"#

$interface

=

"1.0"Sub

main

...End

Sub

关于会话log文件名加上当天日期，如果你的会话是固定的，在SecureCRT的会话设置里就可以预设好（如下图），否则就通过VBS获取当天日期。都是可以做的。

# $language = "VBScript"

# $interface = "1.0"

'=====================================================

'                    山东**集团    

'                                    By Klsjnh 

'                                      Ver 0.5

'                                   2014.10.22 21:44        

'=====================================================

'   从列表中读取交换机地址

'   v0.5  修改了   巡检中错误会停止的错误

'         修改了   寻找 more的方式

'

Sub Main

On Error Resume Next    '出错忽略

    Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim objFso,objFile,strLine,aryParams

Set objFso= CreateObject("Scripting.FileSystemObject")

Set objFile= objFso.OpenTextFile("D:\Klsjnh\网络\脚本\iplist.ini",Forreading, False )

crt.Screen.Synchronous = True

strFolder=createFolder & "\"

DO While  objFile.AtEndOfStream <> True

strLine = objFile.ReadLine

aryParams=Split(strLine)

crt.Session.Connect "/TELNET " & aryParams(0)

If  crt.Session.Connected Then 

crt.session.LogFileName = strFolder & aryParams(0) & "_" &  Replace(Date,"/","-")  & ".txt"

crt.session.Log(true)

If aryParams(1) = 1 Then     '登陆模式 1  telnet 密码 

crt.Screen.WaitForString "Password:"

crt.Screen.Send aryParams(2) & vbcr

End If 

If aryParams(1) = 2 Then     '登陆模式 2  特权模式

crt.Screen.WaitForString "Password:"

crt.Screen.Send aryParams(2) & vbcr

crt.Screen.WaitForString ">"

crt.Screen.Send "su" & vbcr

crt.Screen.WaitForString "Password:"

crt.Screen.Send aryParams(2) & vbcr

End If 

'================================巡检部分================================

crt.Screen.WaitForString ">"

crt.Screen.Send "dis log" & vbcr

Do Until crt.Screen.WaitForString("---- More ----",2) <> -1

crt.Screen.Send " " & vbcr

Loop

'========================================================================

crt.Session.Disconnect

crt.session.Log(False)

Else

appendTextFile "发生错误：   " & aryParams(0) & " 。(" & now() & ")"

End If 

Loop

If Err.Number = 0 Then

crt.Dialog.MessageBox("所有交换机巡检成功....")

Else

crt.Dialog.MessageBox("所有交换机巡检完成，部分交换机有错误....")

End If 

    crt.Screen.Synchronous = False    

End Sub 

Public Function createFolder()                   '创建以当前日期为名的 文件夹

Dim objFso,objFolder,strFolderName

Set objFso          =  CreateObject("Scripting.FileSystemObject")

Set objFolder       =  objFso.getfolder("D:\Klsjnh\网络\巡检")

strFolderName       =  now()

strFolderName       =  Left(strFolderName,InStr(strFolderName,Chr(32)))  '取空格之前的部分

strFolderName       =  Mid(strFolderName,6,Len(strFoldername)-6)    '取日期

strFolderName       =  Replace(strFolderName,"/","_")

strFolderName       =  objFolder & "\" & strFolderName

If objFso.FolderExists(strFolderName)<>True Then 

objFso.CreateFolder(strFolderName)

End If 

createFolder        =  strFolderName

End Function 

Public Function appendTextFile(strFileText)   '打开文件追加

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim objFso,objFile,strLine

Set objFso  = CreateObject("Scripting.FileSystemObject")

strFilePath      = "D:\Klsjnh\网络\交换机巡检错误日志.log"

Set objFile = objFso.OpenTextFile(strFilePath,ForAppending, True )

objFile.WriteLine strFileText

objFile.close 

Set objFile = Nothing

Set objFso  = Nothing

End Function

SSH的英文全称是SecureShell传统的网络服务程序，如：ftp和telnet在本质上都是不安全的，因为它们在网络上用明文传送口令和数据，别有用心的人非常容易就可以截获这些口令和数据。而通过使用SSH客户端与服务器端通讯时，用户名及口令均进行了加密，有效防止了对口令的窃听。同时通过SSH的数据传输是经过压缩的，所以可以提高数据的传输速度，既然如此我们为什么不使用它呢。SSH是由客户端和服务端的软件组成的，有两个不兼容的版本分别是：1.x和2.x。至于具体如何安装服务器端，普通用户就不需要关心了。　一、安装1、安装首先要下载SecureCRT，目前最新的版本为6.1.3（截止到2008年2月，其破解版本TBE或AGAiN），我们以5.53版为例进行介绍，下载安装文件scrt553.exe和破解文件keygen.exe。安装过程很简单，运行scrt553.exe，只要“下一步”即可，安装过程中可以看到SecureCRT支持以下协议：SecureCRT使用说明-脚本之家安装完成后，第一次启动SecureCRT会有如下提示：SecureCRT使用说明-脚本之家用户需要指定一个目录，用来存放SecureCRT的配置信息。此目录默认为C:\DocumentsandSettings\用户名\ApplicationData\VanDyke\Config，如果是升级SecureCRT需要保持此文件夹与旧版本一致，如果重装系统，一定要备份此目录。如果需要更改，启动SecureCRT后点击Options=>Globalptions=>General修改Configurationfolder即可。2、破解未破解版本，只有30天的使用期。关闭SecureCRT，将keygen.exe拷贝到安装目录C:\ProgramFiles\SecureCRT中，运行它，填写Name，Company后点击Generate得到Serial,Date,LicenseKey信息，点击Patch按钮，破解并备份SecureCRT主程序。运行SecureCRT，点击Help=>EnterLicenseData…，填写从keygen得到的注册信息即可。一般AGAiN破解版本期限一年。二、基本设置修改设置为了SecureCRT用起来更方便，需要做一些设置，需要修改的有如下几处：1、退出主机自动关闭窗口Options=>Globalptions=>General=>DefaultSession=>EditDefaultSettingsSecureCRT使用说明-脚本之家Terminal中将Closeondisconnect选上，当用户从主机中退出后可以自动关闭当前连接的窗口。SecureCRT使用说明-脚本之家2、修改默认卷屏行数当你做一个 *** 作，屏幕输出有上百行，当需要将屏幕回翻时，这个设置会有很大帮助，默认为500行，可以改为10000行，不用担心找不到了。Terminal=>Emulation=>Scrollback修改为10000。SecureCRT使用说明-脚本之家3、修改SFTP默认下载路径（可选）：对于使用SSH的连接中，可以使用SFTP下载文件，在这里可以设置文件的下载目录（默认为下载到“我的文档”中）Connection=>SSH2=>SFTPTab=>Initialdirectories=>LocaldirectorySecureCRT使用说明-脚本之家4、修改Xmodem/Zmodem上传下载路径（可选）SecureCRT可以使用Xmodem/Zmodem方便的上传和下载文件。在Sessionoptions=>Xmodem/Zmodem=>Directories中设置5、拷贝与粘贴的设置通过鼠标 *** 作即可拷贝或粘贴所需内容是一个非常方便的设置Options=>Globalptions=>Terminal=>Mouse选中Copyonselect和Pasteonmiddlebutton这样设置后，只要用鼠标选中所需内容，则将内容拷贝到剪切板中，点击鼠标中键即可粘贴内容。SecureCRT使用说明-脚本之家另外可以设置使用Windows下的拷贝粘贴快捷键，Options=>Globalptions=>General=>DefaultSession=>EditDefaultSettings=>Terminal=>Mappedkeys=>UsewindowscopyandpastehotkeysSecureCRT使用说明-脚本之家6、Tabs设置从Secure5.0以后，增加了Tabs（标签）选项，多个连接可以在同一个窗口下打开，类似IE7.0的风格。将Double-click选项修改为CloseTab，双击标签可关闭连接窗口。SecureCRT使用说明-脚本之家三、界面介绍1、菜单1）File文件Connect连接，打开一个连接或者编辑已有的连接，创建新连接。QuickConnect快速连接，快速连接对话框，快速连接主机的最便捷方式。ConnectinTab在Tab中打开一个新的会话窗口。CloneSession克隆当前会话窗口。ConnectSFTPTab打开SFTP窗口，对于SSH连接，此选项可用。在此会话窗口中可使用SFTP命令传输文件。Reconnect重新连接Disconnect中断当前会话窗口的连接LogSession把当前窗口的会话记录到log文件中。RawLogSession将更详细的会话记录到log文件中，包括服务器更详细的响应信息。TraceOptions在log文件中记录协议会话信息选项。（包括客户端与主机互相连接时的一些信息内容）2）Edit编辑拷贝粘贴等3)View视图显示各种工具条4)Options选项包括全局选项和Session选项5)Transfer传递文件使用Xmodem/Zmodem上传下载文件6)Script.脚本运行一个脚本文件，或记录一个新的脚本。（类似Word中的宏功能）7)Tools工具键盘映射编辑，密钥生成工具等8)Help帮助2、对话框和按钮点击File=>Connect可出现Connect对话框。从左至右按钮依次为：连接（激活选中的连接条目）；快速连接（快捷连接新的主机）；新建连接（在对话框中新增一个连接条目）；剪切；复制；粘贴；删除（对话框中的条目）；新建文件夹，属性（显示选中条目的属性），创建条目的桌面快捷方式，帮助。SecureCRT使用说明-脚本之家Connect对话框下方有两个选项：Showdialogonstart(启动SecureCRT时显示Connect对话框)；Openinatab(以新标签卡的形式打开一个会话)，选中此选项，新的会话窗口如下图所示：在Linux主机下，可以使用Xmodem/Zmodem方便的上传和下载文件基本命令：sz下载文件到本地；rz上传本地文件到主机。5、其它技巧1）使用脚本来进行重复性工作可以像word的宏一样，把你的重复性 *** 作记录为一个脚本文件Script.=>StartRecordingScript，开始记录Script.=>StopRecordingScript，停止记录，Saveas…保存成script文件。下次调用时Script.=>Run=>SelectScript.torun…SecureCRT使用说明-脚本之家2）使用Mapkey来进行重复输入工作可以设置为全局选项（对所有连接都有效），也可以只设置为Session选项，如下图Options=>Sessionptions=>Terminal=>Mappedkeys=>Mapakey，出现MapKey对话框SecureCRT使用说明-脚本之家SecureCRT使用说明-脚本之家例如，单击F12键，在SendString输入你要经常重复使用的命令，okSecureCRT使用说明-脚本之家则下次在会话窗口中点击F12键将直接输入df–m3）自动登录以登录一个Telnet的主机为例，Sessionptions=>Connection=>LogonScripts=>Automatelogon,在login后的send中输入用户名，在Password后的send中输入密码。则可实现自动登录。SecureCRT使用说明-脚本之家用SecureCRT来上传和下载数据SecureCRT可以使用linux下的zmodem协议来快速的传送文件，只要设置一下上传和下载的默认目录就行options-->sessionoptions-->filetransfer下可以设置上传和下载的目录剩下的只要在用SecureCRT登陆linux终端的时候：发送文件到客户端：szfilenamezmodem接收可以自行启动.从客户端上传文件到linux服务端：只要服务端执行，rz然后在SecureCRT里选文件发送，协议zmodem。

---