#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = True ' This automatically generated script may need to be ' edited in order to work correctly. Sub Main crt.Sleep 3000 crt.Screen.Send " screen-length disable" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis clock" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis device manuinfo" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis version" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis device" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis cpu " & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis memory" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis environment" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis fan" & chr(13) & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis power" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis logbuffer " & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis int bri " & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis ip int bri " & chr(13) & chr(13) & chr(13) crt.Screen.Send " display ip routing-table" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis vlan" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis arp" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis mac-address" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis curr" & chr(13) End Sub ' 命令解析:(双引号的命令可以替换) ' H3C可以输入 screen-length disable 多行显示一次显示完,不用按空格继续下一页的操作! ' ' screen-length disable 设置命令不分页显示 ' dis clock 显示当前时间 ' dis device manuinfo 查看设备序列号 ' dis version 查看设备版本 ' dis device 查看设备信息 ' dis cpu 查看CPU利用率 ' dis memory 查看内存利用率 ' dis environment 查看设备温度 ' dis fan 查看风扇状态 ' dis power 查看电源状态 ' dis logbuffer 查看系统和告警日志 ' dis int bri 查看物理端口状态 ' dis ip int bri 查看三层接口状态 ' display ip routing-table 查看路由表 ' dis vlan 查看vlan ' dis arp 查看ARP表 ' dis mac-address 查看MAC表 ' dis curr 查看当前配置
#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = True ' This automatically generated script may need to be ' edited in order to work correctly. Sub Main crt.Sleep 3000 crt.Screen.Send " dis clock" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis device manuinfo" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis version" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis device" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis cpu-usage " & chr(13) & chr(13) & chr(13) crt.Screen.Send "dis memory " & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis environment" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis fan" & chr(13) & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis power" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis logbuffer " & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis trapbuffer " & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis int bri " & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis ip int bri " & chr(13) & chr(13) & chr(13) crt.Screen.Send " display ip routing-table" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis vlan" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis arp" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis mac-address" & chr(13) & chr(13) & chr(13) crt.Screen.Send " dis curr" & chr(13) End Sub ' 命令解析:(双引号的命令可以替换) ' 记得进入vty 和console口 配置 screen-length 0 变为不分页显示!不然信息太多显示不齐,命令容易出错! ' dis clock 显示当前时间 ' dis device manuinfo 查看设备序列号(有些版本不支持) ' dis version 查看设备版本 ' dis device 查看设备信息 ' dis cpu-usage 查看CPU利用率 ' dis memory-usage 查看内存利用率 ' dis environment 查看设备温度 ' dis fan 查看风扇状态 ' dis power 查看电源状态 ' dis logbuffer 查看系统日志 ' dis trapbuffer 查看告警日志 ' dis int bri 查看物理端口状态 ' dis ip int bri 查看三层接口状态 ' display ip routing-table 查看路由表 ' dis vlan 查看vlan ' dis arp 查看ARP表 ' dis mac-address 查看MAC表 ' dis curr 查看当前配置
#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = True ' This automatically generated script may need to be ' edited in order to work correctly. Sub Main crt.Sleep 3000 crt.Screen.Send " enable" & chr(13) crt.Screen.Send " terminal length 0" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show clock" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show version" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show processes cpu " & chr(13) & chr(13) & chr(13) crt.Screen.Send " show processes mem" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show environment all" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show logging " & chr(13) & chr(13) & chr(13) crt.Screen.Send " show interfaces status " & chr(13) & chr(13) & chr(13) crt.Screen.Send " show ip interface brief" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show ip route" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show vlan" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show arp" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show mac address-table" & chr(13) & chr(13) & chr(13) crt.Screen.Send " enable" & chr(13) crt.Screen.Send " show run" & chr(13) End Sub ' 命令解析: ' enable 先进入特权模式 ' terminal length 0 设置命令不分页显示 ' show clock 显示当前时间 ' show version 查看设备版本(有些型号可以显示序列号) ' show processes cpu 查看CPU利用率 ' show processes mem 查看内存利用率 ' show environment all 查看设备温度、风扇、电源 ' show logging 查看系统和告警日志(在#模式下查看) ' show interfaces status 查看物理端口状态 ' show ip interface brief 查看接口IP的UP状态 ' show ip route 查看路由表 ' show vlan 查看vlan ' show arp 查看ARP表 ' show mac address-table 查看MAC表 ' show run 查看当前配置(在#模式下查看)
#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = True ' This automatically generated script may need to be ' edited in order to work correctly. Sub Main crt.Sleep 3000 crt.Screen.Send " terminal length 0" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show clock" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show manuinfo" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show version" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show cpu " & chr(13) & chr(13) & chr(13) crt.Screen.Send " show memory" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show temperature" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show fan" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show power" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show logging " & chr(13) & chr(13) & chr(13) crt.Screen.Send " show interfaces status " & chr(13) & chr(13) & chr(13) crt.Screen.Send " show ip interface brief" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show ip route" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show vlan" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show arp" & chr(13) & chr(13) & chr(13) crt.Screen.Send " show mac " & chr(13) & chr(13) & chr(13) crt.Screen.Send " show run" & chr(13) End Sub ' 命令解析: 锐捷要先进入特权模式#下才能查 ' enable 先进入特权模式,锐捷默认密码为 ruijie ' terminal length 0 设置命令不分页显示 ' show clock 显示当前时间 ' show manuinfo 显示序列号(在#模式下查看) ' show version 查看设备版本 ' show cpu 查看CPU利用率(在#模式下查看) ' show memory 查看内存利用率(在#模式下查看) ' show temperature 查看设备温度(在#模式下查看) ' show fan 查看设备风扇(在#模式下查看) ' show power 查看设备电源(在#模式下查看) ' show logging 查看系统和告警日志 ' show interfaces status 查看物理端口状态(在#模式下查看) ' show ip interface brief 查看接口IP的UP状态(在#模式下查看) ' show ip route 查看路由表(在#模式下查看) ' show vlan 查看vlan(在#模式下查看) ' show arp 查看ARP表(在#模式下查看) ' show mac 查看MAC表(在#模式下查看) ' show run 查看当前配置(在#模式下查看)
自动巡检教程 一、下载vbs脚本,如果下载不了,可以按以下步骤操作,制作VBS文件: 1、将生成的脚本,复制到txt文本内: 2、将文本另存为.vbs文件: 二、打开CRT调试软件,登陆设备: 1、在底下新建按钮: 2、选“运行脚本”--选择vbs文件--按钮命名--确定 3、运行脚本