; ファイル名
; about10sec-logfind.ttl
;
; 機能
; およそ10秒間隔でログを取得しファイルに保存
;
; 動作環境
; CiscoRouter etc.
;
; 作者
; hiroc
;
; 作成日
; 2004/10/20
;
;ダイヤログを開きログファイル名を入力
inputbox 'FileNAME:' 'FileOPEN' 
filename = "c:\log\"
strconcat filename inputstr
strconcat filename ".txt"

;ログファイルオープン
logopen filename 1 0

;取得コマンドを保存したテキストファイルを内容を送信
sendfile "log.txt',0

timeout = 10

:loop 
;「!END」入力にてマクロ終了
wait "!END"
if result=1 then 
  logclose
  end
endif

sendfile "log.txt',0

goto loop