#$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 查看当前配置
