# $language = "VBScript"
# $interface = "1.0"
Sub Command(comm)
	crt.screen.send comm & chr(13)
	crt.screen.WaitForString "#"
End Sub
Sub Command1(comm)
	crt.screen.send comm & chr(13)
	crt.screen.WaitForString ">"
End Sub
Sub Main
crt.Screen.Synchronous = False

        Command "enable"	
	Command "end"
        Command "enable"
	Command "terminal length 0"
	Command "show version"
	Command "show interface "
	Command "show run "
	Command "show clock"
	Command "show rate-limit "
	Command "show ip flow interface "
	Command "show crypto ipsec sa  "
	Command "show crypto pki certificates "
	Command "show dldp interface "
	Command "show bfd neighbors "
	Command "show version slots"
	Command "show redundancy state"
	Command "show environment powers"
	Command "show environment fans"
	Command "show environment alarms"
	Command "show log | in WARNNING"
	Command "show cpu"
	Command "show memory"
	Command "show ip fpm statistics"
	Command "show logging | in unreachable"
	Command "show logging | in PULL "	
	Command "show logging | in PUSH  "
	Command "show logging | in Disable"
	Command "show logging | in SWITCHOVER"
	Command "show logging | in RDND-"
	Command "show logging | in down "
	Command "show logging | in OSPF"
	Command "debug support"
	Command "show exception"
	Command "exit"
	Command "show cellular info"
	Command "show interface"
	Command "show logging | in BGP"
	Command "show logging | in BFD"
	Command "巡检信息收集完毕，开始一键收集补充信息"
	Command "show slot"
	Command "show memory slot all"
	Command "show cpu slot all"
	Command "show ip fpm counters"
	Command "show core"
	Command "show efb"
	crt.sleep 1000
	Command "debug support"
	Command "show skbuff"
	Command "show task"
	Command "pcie show"
	Command "exit"
	crt.sleep 1000
	Command "show core"
	Command "show efb"
	crt.sleep 1000
	Command "debug support"
	Command "show skbuff"
	Command "show task"
	Command "pcie show"
	Command "exit"
	crt.sleep 1000
	Command "show ip fpm counters"
	Command "show hpg all"
	Command "show redundancy fsm"
	Command "show redundancy state"
	Command "show redundancy auto-sync"
	Command "show redundancy switchtimeout"
	Command "show ip interface brief"
	Command "show ip route summary all"
	Command "Show ip route count"
	Command "terminal length 25"
	Command "信息收集完毕"



End Sub  
