secureCRT思科路由器交换机接口信息收集脚本

最新推荐文章于 2024-10-09 17:50:31 发布
最新推荐文章于 2024-10-09 17:50:31 发布
阅读量2.6k 收藏 8
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/MrRight17/article/details/79113074
版权

工作时需要和布线人员做一定的交互，所以写了个secureCRT的可以看设备接口的脚本

当然，只支持Cisco设备

先在脚本中设置好SSH和telnet的用户名和密码，再直接在secureCRT运行，输入设备IP地址就行了

会自动发送show inter和show int status命令给设备，然后回显会各自保存在系统临时目录的临时文件中

通过词法分析取出各种关键信息，并在桌面生成以年-月-日-IP.xslx命名的excel表格，再自动删除临时文件

效果就是下面这个样子的

#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = true

'设置SSH用户名和密码
const UserName1 = """MrRight 17""" , PassWord1 = "Michael123!" , EnablePassWD1 = "Michael123!"
'设置telnet用户名和密码
const UserName2 = "MrRight 17"
'设置常量Read为1，Write为2
const Read = 1, Write = 2

'每条命令刷新时间(机器比较好的时候，可以改小点)
const waitingForCmd = 5

dim IPADDR
dim szIntlogFileName
dim szVIDlogFileName

sub Main

    IP = InputBox("Enter IP address : ")
    IPADDR = IP
    '保存log文件到临时目录
    dim fso 
    set fso = CreateObject("Scripting.FileSystemObject")       
    dim tempfolder 
    const TemporaryFolder = 2 
    set tempfolder = fso.GetSpecialFolder(TemporaryFolder) 

    szIntlogFileName = tempfolder & "\" & IP & ".txt"
    szVIDlogFileName = tempfolder & "\" & IP & "-VID.txt"
    'MsgBox tempfolder

    if Login(IP) then
	    RunCommand()

        ' 获取桌面地址
        dim WshShell, strDesktop
        set WshShell = CreateObject("wscript.shell")
        strDesktop = WshShell.SpecialFolders("Desktop")
        dateTime = date()
        dateTime = Replace(dateTime,"/","-")
        ' 创建excel文件
        createExcel strDesktop & "\" & dateTime & "-" & IP & ".xlsx", szIntlogFileName, szVIDlogFileName

        dim tmpFile, fso1
        set fso1 = CreateObject("Scripting.FileSystemObject")       
        set tmpFile = fso1.GetFile(szIntlogFileName)
        tmpFile.Delete
        set tmpFile = fso1.GetFile(szVIDlogFileName)
        tmpFile.Delete

        MsgBox "Create " & strDesktop & "\" & dateTime & "-" & IP & ".xlsx" & " successful!"

        'IP = InputBox("Enter IP address : " & vbcr & "(Quit enter 0)")
    else
        MsgBox("Login failed !")
    end if
end sub

'------------------------------------------------------------------------------------------------------'
'Login子函数（登录检测）
function Login(IP)
	'函数返回值
	Login = True	

	'登录方式
	Login = SSH2Connect(IP)
	if NOT Login then
		Login = TelnetConnect(IP)
	end if 
	
'MsgBox Login
	
'返回主函数
End function

'------------------------------------------------------------------------------------------------------'
function SSH2Connect(IP)

	'函数返回值
	SSH2Connect = True
    'crt.Session.LogFileName = szlogFileName
	'Crt.Session.Log(True)
	'此部分实例代码在scripting_essentials.pdf的P31有详细解释
	On Error Resume Next 
	crt.Session.Connect("/SSH2 /L " & UserName1 & " /PASSWORD " & PassWord1 & " " & IP)	
	nError = Err.Number 
	strErr = Err.Description 
	' Now, tell the script host that it should handle errors as usual now: 
	On Error Goto 0 
	If nError <> 0 Then     
	' Handle the error (log to a file, etc.) 

		SSH2Connect = false
        'Crt.Session.Log(false)
        crt.Session.Disconnect
	Else    
	' Do work on the remote machine

		Select Case Crt.Screen.WaitForStrings(">","#",10)
		'需要输入enable密码		
			Case 1
				SendEnablePasswd()
		'特权模式
			Case 2
				Crt.Screen.Send vbCr
		End Select	
	End If
end function 

'------------------------------------------------------------------------------------------------------'
function TelnetConnect(IP)

	'函数返回值
	TelnetConnect = True
    
    'Crt.Session.Log(True)
	On Error Resume Next 
	crt.Session.Connect("/Telnet" & " " & IP)
	nError = Err.Number 
	strErr = Err.Description 
	' Now, tell the script host that it should handle errors as usual now: 
	On Error Goto 0 
	If nError <> 0 Then     
	' Handle the error (log to a file, etc.) 

		TelnetConnect = false
		'Crt.Session.Log(false)
		crt.Session.Disconnect
	Else    
		Select Case crt.Screen.WaitForStrings("username",10)
		'输入用户名和密码
			Case 1
				Crt.Screen.Send UserName2
				crt.Screen.Send vbcr
				Crt.Screen.WaitForString("assword")
				Crt.Screen.Send(PassWord1 & vbcr)
				Crt.Screen.Send vbCr
				if (crt.Screen.WaitForStrings(">","#") <> 2) then
					SendEnablePasswd()
				else
					Crt.Screen.Send vbCr
				end if
		end Select
	End If
	
end function

'------------------------------------------------------------------------------------------------------'
'发送enable密码
sub SendEnablePasswd()
	Crt.Screen.Send "enable" & vbCr
	Crt.Screen.WaitForString("assword: ")
	Crt.Screen.Send EnablePassWD1 & vbCr
	Crt.Screen.Send vbCr
end sub

'------------------------------------------------------------------------------------------------------'
'RunCommand子函数
Sub RunCommand()

    crt.Session.LogFileName = szIntlogFileName
    Crt.Session.Log(true)
	'执行命令
	crt.Screen.Send "sh int"
    crt.Screen.Send vbcr
	'超过屏幕时，按空格
	Do While (crt.Screen.WaitForString("More",waitingForCmd) = True)
		crt.Screen.Send(" ")
	Loop 
	Crt.Session.Log(false)
    crt.Sleep 100
	crt.Session.LogFileName = szVIDlogFileName
    Crt.Session.Log(true)
	'执行命令
    crt.Screen.Send "sh int status"
    crt.Screen.Send vbcr
	'超过屏幕时，按空格
	Do While (crt.Screen.WaitForString("More",waitingForCmd) = True)
		crt.Screen.Send(" ")
	Loop 
    Crt.Session.Log(false)

	crt.Session.Disconnect
	
'返回Login子函数

End Sub

'------------------------------------------------------------------------------------------------------'
' 创建ExcelMain
function createExcel(excelFileName, intlogFileName, VIDlogFileName)
	createExcel = true
    createExcelHeard excelFileName, intlogFileName, VIDlogFileName
end function

'------------------------------------------------------------------------------------------------------'
' 创建Excel
' A         B               C                       D           E               F           G               H
' 10.93.1.1	Interface	    Link	                Protocol	State	        Last input	Last output     VLAN ID
'           vlan1	        administratively down	down 	    notconnect	    0:00:00	    never           
'           FastEthernet0/1	down	                down 	    notconnect 	    never	    never           59
function createExcelHeard(excelFileName, intlogFileName, VIDlogFileName)

	createExcelHeard = true

    dim objExcelApp, objExcelBook, objExcelSheet 
    set objExcelApp = CreateObject("excel.application")
    set objExcelBook = objExcelApp.WorkBooks.Add
    set objExcelSheet = objExcelBook.ActiveSheet
    '------------------------------------------
    ' 先处理接口普通信息
    dim fso, objLogFile
    set fso = CreateObject("Scripting.FileSystemObject")
    set objLogFile = fso.OpenTextFile(intlogFileName,Read,false)

    ' 生成表头
    '
    objExcelSheet.Cells(1,1) = IPADDR
    objExcelSheet.Cells(1,2) = "Interface"
    objExcelSheet.Cells(1,3) = "Link"
    objExcelSheet.Cells(1,4) = "Protocol"
    objExcelSheet.Cells(1,5) = "State"
    objExcelSheet.Cells(1,6) = "Last input"
    objExcelSheet.Cells(1,7) = "Last output"

    dim flag, row, column
    flag = true
    ' 行
    row = 2
    ' 列
    column = 2

    do while objLogFile.AtEndOfStream <> true
        szline = objLogFile.ReadLine
        if flag then
            ' interface/Link/Protocol/state  这些信息在一行
            if InStr(szline, "protocol") then
                tmp = InStr(szline,"drops")
                if tmp = 0 then
                    objExcelSheet.Cells(row,column) = getInterface(szline)
                    column = column + 1
                    objExcelSheet.Cells(row,column) = getLink(szline)
                    column = column + 1
                    objExcelSheet.Cells(row,column) = getProtocol(szline)
                    column = column + 1
                    objExcelSheet.Cells(row,column) = getState(szline)
                    column = column + 1
                    flag = not flag
                end if
            end if
        else
            ' Last input/Last output         这些信息在一行
            if InStr(szline, "Last input") then
                objExcelSheet.Cells(row,column) = getLastInput(szline)
                column = column + 1
                objExcelSheet.Cells(row,column) = getLastOutput(szline)
                column = 2

                flag = not flag
                row = row + 1
            end if
        end if
        
    loop
    '------------------------------------------
    ' 再处理VLAN ID信息
    set objLogFile = fso.OpenTextFile(VIDlogFileName,Read,false)
    objExcelSheet.Cells(1,8) = "VLAN ID"

    dim NameLk, StatusLK

    flag = false
    dim flag2
    flag2 = false
    column = 2
    objLogFile.ReadLine
    objLogFile.ReadLine
    do while objLogFile.AtEndOfStream <> true
        szline = objLogFile.ReadLine
'msgbox szline
'msgbox "282"
        ' 定位标题行，用于计算接口注释位置（为了检测是否有注释）
        if NOT flag then
'msgbox "285"
            if InStr(szline,"ort") then 
                NameLk = InStr(szline, "Name")
'msgbox "NameLk: " & NameLk 
                StatusLK = InStr(szline, "Status")
                flag = true
            end if 
        end if
        ' 关键信息行定位
        if keyLine(szline) then
            ' 定位EXCEL中应该写在什么位置（一次性）
            if NOT flag2 then
                for row = 2 to 100
                ' 取出前两个字符 Gi
'msgbox "298"
                    if InStr(objExcelSheet.cells(row,column), Mid(szline, 1, 2)) = 1 then 
                        flag2 = true
                        column = 8
                        exit for
                    end if 
                next
            end if 
            ' 检测是否有注释，Gi4/3     To-P2-6500         inactive     1            full   1000 No Gbic
            szlineLen = Len(szline)
'msgbox "308"
            tmpMid = Mid(szline, NameLk, 1)
            if inStr(tmpMid," ") = 1 then   ' 没注释
                vlanID = vlanIDFunction(szline, szlineLen) 
                objExcelSheet.cells(row,column) = vlanID(2)
            else                                            ' 有注释
                vlanID = vlanIDFunction(szline, szlineLen)
                objExcelSheet.cells(row,column) = vlanID(3) 
            end if
            row = row + 1 
        end if
    loop
    objExcelBook.SaveAs(excelFileName)
    '设置颜色

     ' 行
    row = 2
    ' 列
    column = 6

    do while objExcelSheet.cells(row,column) <> ""
'MsgBox objExcelSheet.cells(row,column)
        if inStr(objExcelSheet.cells(row,column),"never") then
            if objExcelSheet.cells(row,column + 1) = "never" then
                objExcelSheet.cells(row,column).Interior.color = RGB(255,0,0)
                objExcelSheet.cells(row,column + 1).Interior.color = RGB(255,0,0)
                objExcelSheet.cells(row, 2).Interior.color = RGB(255,0,0)
            end if
        end if
        row = row + 1
    loop

    for i = 65 to 90
        objExcelSheet.Columns(chr(i)).AutoFit
        '设置水平对齐，1常规，2靠左，3居中，4靠右
        objExcelSheet.Columns(chr(i)).HorizontalAlignment = 2
    next

    objExcelBook.Save
    objExcelBook.Close
    objExcelApp.Quit

end function

'------------------------------------------------------------------------------------------------------'
' VLAN ID处理
'------------------------------------------------------------------------------------------------------'
' 判断是否有关键信息
function keyLine(szline)
    keyLine = true
    if InStr(szline,"#") then
        keyLine = false
    end if
    if InStr(szline,"ort") then
        keyLine = false
    end if
    if InStr(szline, " ") = 1 then
        keyLine = false
    end if
end function

'------------------------------------------------------------------------------------------------------'
'
function vlanIDFunction(szline,szlineLen)
    for i = szlineLen to 2 step -1
        szchars = space(i)
        szline = Replace(szline,szchars, " ")
    next
    vlanIDFunction = Split(szline," ")
end function 

'------------------------------------------------------------------------------------------------------'
' 词法分析

'------------------------------------------------------------------------------------------------------'
' 获得Interface
' FastEthernet0/1 is down, line protocol is down (notconnect) 
function getInterface(szline)
    dim interface
    interface = Split(szline," ")
    getInterface = interface(0)
end function

'------------------------------------------------------------------------------------------------------'
' 获得Link
' FastEthernet0/1 is down, line protocol is down (notconnect) 
' Vlan999 is up, line protocol is up 
' Vlan1 is administratively down, line protocol is down 
function getLink(szline)
    dim link
    tmpLink = Split(szline,",")
    link = Split(tmpLink(0),"is ")
    getLink = link(UBound(link))
end function

'------------------------------------------------------------------------------------------------------'
' 获得Protocol
' FastEthernet0/1 is down, line protocol is down (notconnect) 
' Vlan999 is up, line protocol is up 
' Vlan1 is administratively down, line protocol is down 
function getProtocol(szline)
    dim protocol
    tmpProtocol1 = Split(szline,",")
    tmpProtocol2 = Split(tmpProtocol1(1),"is ")
    protocol = Split(tmpProtocol2(1),"(")
    getProtocol = protocol(0)
end function

'------------------------------------------------------------------------------------------------------'
' 获得State
' FastEthernet0/1 is down, line protocol is down (notconnect) 
' Vlan999 is up, line protocol is up 
' Vlan1 is administratively down, line protocol is down 
function getState(szline)
    dim state
    if InStr(szline,"(") then
        tmpState1 = Split(szline,"(")
        tmpState2 = tmpState1(UBound(tmpState1))
        state = Split(tmpState2,")")
        getState = state(0)
    else
        getState = "N/A"
    end if
end function

'------------------------------------------------------------------------------------------------------'
' 获得Last input
'  Last input 00:00:00, output never, output hang never
'  Last input 00:00:00, output 00:00:00, output hang never
'  Last input never, output never, output hang never
function getLastInput(szline)
    dim lastInput
    tmpLastInput1 = Split(szline,",")
    ' 第一段
    lastInput = Split(tmpLastInput1(0)," ")
    getLastInput = lastInput(UBound(lastInput))
end function

'------------------------------------------------------------------------------------------------------'
' 获得Last output
'  Last input 00:00:00, output never, output hang never
'  Last input 00:00:00, output 00:00:00, output hang never
'  Last input never, output never, output hang never
function getLastOutput(szline)
    dim lastOutput
    tmpLastOutput1 = Split(szline,",")
    ' 第二段
    lastOutput = Split(tmpLastOutput1(1)," ")
    getLastOutput = lastOutput(UBound(lastOutput))
end function

'------------------------------------------------------------------------------------------------------'

'2018.1.19
'1.0.0
'自动登录，自动识别SSH，TELNET
'自动收集接口信息，生成excel
'其中包含VLAN ID


白M
关注
使用SecureCRT批处理备份所有交换机路由器配置脚本
weixin_34194359的博客
01-26 8806
测试了SecureCRT脚本批量执行备份cisco交换机或者路由器配置文件的功能。测试通过（成功批量备份28台交换机，时间小于1分钟）。此脚本可以根据你的需要修改，改成其他功能，希望有需要的同学扩展思路。使用SecureCRT对所有交换机路由器批处理执行WR命令的脚本使用方法：1、 在D盘新建一个文件夹，命名为SWbackup，打开文件夹，新建list.txt，编辑这个文本文...
串口工具securecrt_SecureCRT配置交换机
lendq的Blog
08-15 6739
从华为的光电交换机上面的console口查看一些端口的状态等，
SecureCRT读取交换机MAC地址表python脚本
01-23
SecureCRT中执行的python脚本，用于读取交换机MAC地址表等信息。
SecureCRT自动备份脚本-思科
weixin_30764883的博客
08-31 478
利用SecureCRT脚本对思科设备进行批量备份： （1）新建文本文件（注意保存路径，本次测试路径为D:\backup\list.txt）： 　　x.x.x.x username password enable_password （#注：如果没有enable密码可以不写；每项用空格分割） （2）新建文本文件cisco.txt（路径D:\backup\cisco.txt），...
华为S5735交换机配置脚本
最新发布
weixin_42844704的博客
10-09 910
直接连接交换机的端口配置。
H3C批量收集服务器信息,一个采集服务器所接交换机端口信息的脚本（支持CISCO和H3C的交换机）...
weixin_39957934的博客
08-06 533
#!/bin/shfunction cisco(){net=$1tcpdump -nn -v -i $net -s 1500 -c 1 'ether[20:2] == 0x2000' > /tmp/tmp_get_port &sleep 60killall -9 tcpdump && returnswitch=`egrep "Device-ID|Device-ID" ...
Cisco 交换机CRT
01-06
管理交换设备便于远程Telnet设备。很方便绿色版。
SecureCRT备份脚本.rar
04-28
原理：通过ssh登录防火墙/交换机,再在交换机上使用ftp连接服务器，上传本机配置文件。 使用事项： 1、先搭好ftp，模拟手工登录上传文件测试 2、确保设备的ssh正常，常常需要检查ssh服务是否开启、用户的ssh权限是否开启、安全策略是否放通 3、脚本已经有了一定的容错处理，和日志记录 调试通过版本为securecrt ver 8.3.3 x64 bulid 1646。 详细看压缩包中的说明文件
SecureCRT，路由交换机配置工具
12-14
SecureCRT，路由指令工具，可以随意配置路由和交换机。
网管必备软件SecureCRT，配置交换机，核心路由
09-13
大家都知道的 配置交换机，核心路由的软件！
思科交换机绑定脚本，securecrt平台
06-09
可以先行扫描port的MAC，写入EXCEL，再根据EXCEL数据绑定交换机MAC+IP+PORT
思科交换机配置自动备份工具.zip
09-03
软件介绍: 思科设备配置自动备份脚本功能：本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份，打开保存设备管理地址以及密码的文件，读出每行参数、如IP地址和密码，Telnet到这个设备上，输入telnet密码进特权模式，备份目前runing-config配置，备份完成后退出。压缩包内有三个文件，具体使用方法，详见里面的说明文档。
ciscotool crt
04-07
THE is a tool for used configuration the router adn switching
SecureCrt的python脚本
oHanYi1的博客
03-21 327
https://www.cnblogs.com/zhaoyujiao/archive/2015/10/25/4908627.html
python脚本获取主机Mac地址
weixin_30779691的博客
11-03 121
#!/usr/bin/python import re import subprocess ARP = "arp" IP = "192.168.128.27" CMD = "%s %s" % (ARP,IP) macPattern = re.compile(":") def getMac(): p = subprocess.Popen(CMD,shell=True,stdout...
CISCO SecureCRT登录器
03-21
绝对的好用 CISCO SecureCRT登录器 而且简单 容易操作
使用vbs语言利用SecureCRT批量执行交换机命令
qq_42769013的博客
03-08 2351
使用vbs语言利用SecureCRT批量执行交换机命令 本来想用python连接交换机并执行命令，但是一直连不上，同事说可以用SecureCRT自带的工具执行多条命令，就尝试了一下 打开SecureCRT，先连接一个中断，然后选择Script,点击开始录制，把你想要执行的命令执行一遍 点击stop Recording Script,会保存一个vbs脚本 查看脚本，我们发现是进入了trunk 100并查看配置 我们想要在这个trunk里面添加多条条路由，显然手动添加很麻烦，需要写一个双重循环
路由器,交换机,Linux连接工具（SecureCRT）
06-15
用来本地或远程连接路由器，交换机，Linux服务器等，用小凡，Simware做模拟实验必备工具！
secureCRT中使用python
02-26
在secureCRT中如何使用Python编写常用的脚本，函数！快速测试
利用SecureCRTPortable脚本功能完成网络设备的数据读取
dawn0718的专栏
06-10 1040
　　一直使用SecureCRTPortable来维护网络设备。敲网络命令多了，觉得这工作繁琐枯燥，日常的工作之一就是频繁从网络设备中读取网络设备的数据记录，先前使用Python脚本来完成，挺方便，后面也没有再使用Python，现在要使用则必须安装Python，不想折腾了。无意中看到SecureCRTPortable有录制脚本功能，上网一查，它可以执行脚本，包括VBScript、JavaScript和Python，实在是太好了！今天下午查了相关资料，利用VBScript完成了先前使用Python完成的功能。.
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值