# $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 "terminal length 25"


End Sub  
