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