; ファイル名
; Extended_Ping1.ttl
;
; 機能
; Ciscoルータで拡張pingを簡単にうつことができる
;
; 動作環境
; Ciscoルータ
;
; 作者
; hiroc
;
; 作成日
; 2005/4/11
;
:top
inputbox 'Source IP-Address' 'Extend Ping1'
strcompare inputstr '9999'
if result=0 end
strcompare inputstr ''
if result=0 goto top
SIP=inputstr

inputbox 'Repeat Count' 'Extend Ping2'
strcompare inputstr ''
if result=0 then 
  rc="5"
 else 
  rc=inputstr
endif

inputbox 'Datagram size' 'Extend Ping3'
strcompare inputstr ''
if result=0 then
  ds="100"
 else 
  ds=inputstr
endif

:TARGET
inputbox 'Target IP-Address' 'Extend Ping4'
strcompare inputstr '9999'
if result=0 goto top
strcompare inputstr ''
if result=0 goto TARGET
TIP=inputstr

sendln 'ping'
wait 'Protocol'
sendln 'ip'
wait 'Target'
sendln TIP
wait 'Repeat'
sendln rc
wait 'Datagram'
sendln ds
wait 'Timeout'
sendln
wait 'Extended'
sendln 'y'
wait 'Source'
sendln SIP
sendln
sendln
sendln
sendln
sendln
sendln

wait 'Success'

goto TARGET