【事前準備】
・teraterm.exeを起動したら1から順番に展開されデフォルトで設定を進行していき「追加タスクの選択」で「.ttlファイルをttpmacro.exeに関連付ける」にチェックを入れること
・teratermの送信遅延設定をどちらも0にしないこと
・teratermログの自動採取を解除すること
・ttlファイル・commandテキスト・hostlistテキストは同じフォルダ内に置くこと
・ログを生成するフォルダの場所は事前に把握しておくこと
・別テキストに以下２つを用意
「command.txt」
show running-config
show logging
show version
など、表示結果が欲しいコマンド
「hostlist.txt」
1.1.1.254
1.1.1.253
1.1.1.252
1.1.1.251
など、ログインしたいホストアドレス
■TTLファイル説明■
＊ファイルの書き直しは拡張子をtxtに直して修正する
＊踏み台機器にコンソールで接続しteratermの「コントロール」→「マクロ」で開始
＊enableとVTYパスワードが全台同じ想定
■TXTファイル説明■
＊コマンド＆ホストリストは一覧の最終行で改行禁止（最終行の下に行を作らない）
マクロここから↓↓↓
;■■■■■■■■■■パスワード■■■■■■■■■■
PASSWORD='hoge'
;↑全スイッチ共通のパスワード想定
;■■■■■■■■■■■■■■■■■■■■■■■■■
sendln ''
wait '>'
sendln 'en'
wait 'Password:'
pause 2
sendln PASSWORD
wait '#'
pause 2
sendln 'terminal length 0'
wait '#'
sendln ''
wait '#'
sendln 'show running-config | inc hostname'
wait 'hostname'
recvln
strcopy inputstr 1 8 Host_Name
;＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
;※↑show runのhostnameから始まる行で「hostname」のあと1～8文字目をHost_Nameとして使用する
;文字数が違うなら修正して使用する
;＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
fileopen FHcom 'command.txt' 0
while 1
filereadln FHcom comline
if result = 1 then
break
endif
COMMAND = comline
getdate DATE '_%Y-%m%d-%H%M%S.log'
filename = Host_Name
strconcat filename '_'
strconcat filename COMMAND
strconcat filename DATE
pause 2
sendln ''
wait '#'
logopen filename 0 0
sendln COMMAND
wait '#'
pause 2
sendln ''
wait '#'
pause 2
logclose
endwhile
fileclose FHcom
sendln ''
wait '#'
;■■■■■■■■■■■■■■■■■■■■■■■■■
;★★★★★★★★次のスイッチにtelnet★★★★★★★★
;■■■■■■■■■■■■■■■■■■■■■■■■■
fileopen FHtelnet 'hostlist.txt' 0
:telnetloop
filereadln FHtelnet telnetline
if result goto telnetclose
TELNET = telnetline
pause 2
sendln 'telnet ' TELNET
wait 'Password:'
pause 2
sendln PASSWORD
wait '>'
sendln 'en'
wait 'Password:'
pause 2
sendln PASSWORD
wait '#'
sendln 'terminal length 0'
wait '#'
sendln ''
sendln 'show running-config | inc hostname'
wait 'hostname'
recvln
strcopy inputstr 1 8 Host_Name
;＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
;※↑show runのhostnameから始まる行で「hostname」のあと1～8文字目をHost_Nameとして使用する
;文字数が違うなら修正して使用する
;＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
fileopen FHcom2 'command.txt' 0
while 1
filereadln FHcom2 comline
if result = 1 then
break
endif
COMMAND = comline
getdate DATE '_%Y-%m%d-%H%M%S.log'
filename = Host_Name
strconcat filename '_'
strconcat filename COMMAND
strconcat filename DATE
pause 2
sendln ''
wait '#'
logopen filename 0 0
sendln COMMAND
wait '#'
pause 2
sendln ''
wait '#'
pause 2
logclose
endwhile
fileclose FHcom2
sendln ''
wait '#'
pause 2
sendln 'exit'
wait '#'
goto telnetloop
:telnetclose
fileclose FHtelnet
pause 2
sendln ''
wait '#'
sendln 'exit'
end