secureCRT腳本----vbs語(yǔ)法

hepingcwtg8fbk 2018-08-16

展開全文

常用語(yǔ)句：

1.CRT命令
‘發(fā)送命令
crt.Screen.Send “whyy@dsl-vty” & chr(13)
‘等待字符串出現(xiàn)
crt.Screen.WaitForString “Password:”
‘等待字符串出現(xiàn)，等待1秒鐘
crt.Screen.WaitForString (“Password:”,1)
‘開啟同步
crt.Screen.Synchronous = True
‘判斷指針1秒內(nèi)不移動(dòng)，用于確定安全連接可以進(jìn)行后續(xù)代碼輸入操作
Do
bCursorMoved = crt.Screen.WaitForCursor(1)
Loop until bCursorMoved = False
‘判定是否已經(jīng)連接到設(shè)備
if crt.Session.Connected = true then
‘?dāng)嚅_連接
crt.session.disConnect
‘激活窗口用于多tab頁(yè)面
crt.Activate
‘連接到指定設(shè)備
crt.session.Connect(“/telnet ” & b(n))
‘延時(shí)1秒
crt.Sleep 1000

2.vbScript語(yǔ)句

a.文件操作
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘創(chuàng)建文件對(duì)象
Set file1 = fso.OpenTextFile(“c:\test.txt”,1, False) ‘設(shè)置文件對(duì)象 1 只讀模式;2 寫模式;8 在文件末尾進(jìn)行寫操作
objFso.FileExists(“文件路徑”) ‘判定文件是否存在，存在返回trus，否則返回false
file1.AtEndOfStream <> True ‘如果文件末尾無(wú)數(shù)據(jù)返回true，否則返回false
line = file1.ReadLine ‘讀取第一行文本數(shù)據(jù)，并將讀取位移動(dòng)到下一行
params = Split (line) ‘分割讀取的行數(shù)據(jù)，用空格符分割
file1.Close ‘關(guān)閉文件

b.系統(tǒng)文檔操作
‘創(chuàng)建shell對(duì)象，對(duì)系統(tǒng)特殊文檔操作
Set objShell = CreateObject(“WScript.Shell”)

‘返回”我的文檔”的路徑給變量szMyDocs,可以動(dòng)態(tài)的返回”我的文檔”的路徑
szMyDocs = objShell.SpecialFolders(“MyDocuments”)

‘設(shè)置文件路徑到變量中
szSessionsFile = szMyDocs & “\SessionList.txt”

3.知識(shí)點(diǎn)
<1.判斷文件是否存在
if Not objFso.FileExists(szSessionsFile) then ‘如果txt文件不存在，就報(bào)錯(cuò)并退出sub
crt.Dialog.MessageBox “Session list file not found:” & vbcrlf & _
vbcrlf & _
szSessionsFile & vbcrlf & vbcrlf & _
“Create a session list file as described in the description of ” & _
“this script code and then run the script again.”
exit sub
end if

<2.容錯(cuò)機(jī)制
On Error Resume Next ‘后面代碼錯(cuò)誤會(huì)繼續(xù)執(zhí)行
crt.Session.Connect “/telnet ” & vSessionsArray(0)
szError = Err.Description ‘將錯(cuò)誤表述信息放入變量szError中
On Error Goto 0 ‘關(guān)閉容錯(cuò)機(jī)制

<3.判斷是否安全連接
‘判斷是否連接正常
if crt.Session.Connected then
crt.Screen.Synchronous = True ‘同步顯示
‘第一次連接時(shí)的安全檢測(cè)
Do
bCursorMoved = crt.Screen.WaitForCursor(1)
Loop until bCursorMoved = False
’ 一旦光標(biāo)在一秒內(nèi)停止移動(dòng)，我們就認(rèn)為他已經(jīng)安全的連接上了遠(yuǎn)程設(shè)備
end if

<4.安全關(guān)閉連接
’ 斷開連接
crt.session.disconnect
’ 等待連接關(guān)閉
Do
crt.Sleep 100
Loop While crt.Session.Connected = True ‘每100毫秒判斷連接是否斷開

<5.說明:
1.CRT默認(rèn)tab的index為1
2.要?jiǎng)?chuàng)建第二個(gè)標(biāo)簽頁(yè)tab,必須使用函數(shù)set newtab = objCurrentTab1.Clone()復(fù)制標(biāo)簽頁(yè)為新的tab頁(yè)面
否則報(bào)錯(cuò)tab 2 超出index范圍rang

函數(shù)：
Set objCurrentTab1 = crt.GetTab(1) ‘創(chuàng)建標(biāo)簽頁(yè)1
objCurrentTab1.session.disConnect ‘?dāng)嚅_標(biāo)簽頁(yè)1的當(dāng)前連接
objCurrentTab1.Activate ‘激活標(biāo)簽頁(yè)1
objCurrentTab1.session.Connect(“/telnet 172.16.205.1” ) ‘標(biāo)簽頁(yè)1連接設(shè)備172.16.205.1
set newtab = objCurrentTab1.Clone() ‘復(fù)制標(biāo)簽頁(yè)1到新標(biāo)簽頁(yè)

示例：
【示例一】

 $language = "VBScript"
$interface = "1.0"
'本腳本示范：自動(dòng)登錄到某臺(tái)3550交換機(jī)設(shè)備，自動(dòng)輸入遠(yuǎn)程登錄密碼，同時(shí)自動(dòng)進(jìn)入特權(quán)模式
'自動(dòng)輸入特權(quán)密碼，同時(shí)運(yùn)行show version命令

Sub Main
  crt.Screen.Synchronous = True
  '通過telnet連接到192.168.1.1
  crt.Session.Connect "/TELNET 192.168.1.1"
  crt.Screen.WaitForString "Password:"
  crt.Screen.Send "cisco" & vbCr
  crt.Screen.waitForString  ">"
  crt.Screen.Send "enable" & vbcr
  crt.Screen.WaitForString "Password:"
  crt.Screen.Send "cisco" & vbcr
  crt.Screen.waitForString "#"
  crt.Screen.Send "show version" & vbcr
  crt.Screen.waitForString "--More--"
  crt.Screen.Send " "
  crt.Screen.Synchronous = False
End Sub
【示例二】
 $language = "VBScript"
 $interface = "1.0"
'本腳本示范：從一個(gè)文件里面自動(dòng)讀取設(shè)備IP地址，密碼等，自動(dòng)將設(shè)備配置備份

Sub Main
    '打開保存設(shè)備管理地址以及密碼的文件
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso,file1,line,str1,params
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file1 = fso.OpenTextFile("d:\config.txt",Forreading, False)        
    crt.Screen.Synchronous = True
    DO While file1.AtEndOfStream <> True
       '讀出每行
       line = file1.ReadLine
       '分離每行的參數(shù) IP地址 密碼 En密碼
       params = Split (line)
       'Telnet到這個(gè)設(shè)備上
       crt.Session.Connect "/TELNET " & params(0)
       '輸入telnet密碼
       crt.Screen.WaitForString "Password:"
       crt.Screen.Send params(1) & vbcr
       '進(jìn)特權(quán)模式
       crt.Screen.Send "enable" & vbcr
       crt.Screen.WaitForString "Password:"
       crt.Screen.Send params(2) & vbcr
       crt.Screen.waitForString "#"
        '備份目前Startup配置
       str1 = "copy startup tftp://192.168.1.2/"
       str1 = str1 & "backup(" & params(0) &")" & ".cfg"
       crt.Screen.Send str1 & vbcr
       crt.Screen.WaitForString "]?"
       crt.Screen.Send vbcr
       crt.Screen.WaitForString "]?"
       crt.Screen.Send vbcr
       '備份完成后退出
       crt.Screen.waitForString "#",3
       crt.Session.Disconnect

       loop
    crt.Screen.Synchronous = False           
End Sub
config.txt文本文件為事先編輯好的 
 格式如： 
192.168.1.1 cisco cisco 
 192.168.1.254 cisco cisco 
前面是IP地址，后面是telnet密碼，最后是enable密碼
Sub Main
    '打開保存設(shè)備管理地址以及密碼的文件
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso,file1,line,str1,params
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file1 = fso.OpenTextFile("d:\config.txt",Forreading, False)        
    crt.Screen.Synchronous = True
    DO While file1.AtEndOfStream <> True
       '讀出每行
       line = file1.ReadLine
       '分離每行的參數(shù) IP地址 密碼 En密碼
       params = Split (line)
       'Telnet到這個(gè)設(shè)備上
       crt.Session.Connect "/TELNET " & params(0)
       '輸入telnet密碼
       crt.Screen.WaitForString "Password:"
       crt.Screen.Send params(1) & vbcr
       '進(jìn)特權(quán)模式
       crt.Screen.Send "enable" & vbcr
       crt.Screen.WaitForString "Password:"
       crt.Screen.Send params(2) & vbcr
       crt.Screen.waitForString "#"
        '備份目前Startup配置
       str1 = "copy startup tftp://192.168.1.2/"
       str1 = str1 & "backup(" & params(0) &")" & ".cfg"
       crt.Screen.Send str1 & vbcr
       crt.Screen.WaitForString "]?"
       crt.Screen.Send vbcr
       crt.Screen.WaitForString "]?"
       crt.Screen.Send vbcr
       '備份完成后退出
       crt.Screen.waitForString "#",3
       crt.Session.Disconnect

       loop
crt.Screen.Synchronous = False           
End Sub
【示例三】 
 批量添加靜態(tài)arp：
Sub Main
  Const ForReading = 1
  Dim fso,file,line
  set fso = CreateObject("Scripting.FileSystemObject")
  set file = fso.OpenTextFile("arp.txt",ForReading,False)
  crt.Screen.Synchronous = True
  DO While file.AtEndOfStream <> True
  line = file.ReadLine
  crt.Screen.Send line & vbcr
  crt.Sleep 100
  loop
  crt.Screen.Synchronous = False
End Sub
arp.txt如下：
arp static ip 12.1.1.025 mac 00:24:93:01:73:18 interface ethernet 0/0/1
arp static ip 12.1.1.026 mac 00:24:93:01:73:19 interface ethernet 0/0/1
arp static ip 12.1.1.027 mac 00:24:93:01:73:1a interface ethernet 0/0/1
arp static ip 12.1.1.028 mac 00:24:93:01:73:1b interface ethernet 0/0/1
arp static ip 12.1.1.029 mac 00:24:93:01:73:1c interface ethernet 0/0/1
arp static ip 12.1.1.030 mac 00:24:93:01:73:1d interface ethernet 0/0/1
arp static ip 12.1.1.031 mac 00:24:93:01:73:1e interface ethernet 0/0/1
arp static ip 12.1.1.032 mac 00:24:93:01:73:1f interface ethernet 0/0/1
arp static ip 12.1.1.033 mac 00:24:93:01:73:20 interface ethernet 0/0/1
arp static ip 12.1.1.034 mac 00:24:93:01:73:21 interface ethernet 0/0/1

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自： hepingcwtg8fbk > 《CRT》

舉報(bào)/認(rèn)領(lǐng)