TeraTermにてRTX1000へのconfig追加のマクロ

TeraTermにてRTX1000に対して、lan1.3に新しいセグメント（10.YYY.ZZZ.0/24）を追加するマクロを作成しました。かなりやっつけですが・・・。

 ;RTX1000.ttl
 ;////////////////////
 ; RTX1000コンフィグ変更スクリプト Ver1.0
 ;////////////////////

 ;////////////////////
 ; 変数
 ;////////////////////
 UsernamePrompt = 'login:'
 PasswordPrompt = 'Password:'
 Username = 'administrator'
 Password = 'hogehoge'
 ;---変更先
 lan1 ='10.XXX.'
 lan2 ='.254'
 ;---追加セグメント
 lan3 ='ip lan1.3 address 10.YYY.'
 lan4 ='XXX'
 lan5 ='.254/24'
 ;////////////////////
 ; ファイルオープン
 ;////////////////////
 fileopen fhandle 'D:\Working\100124\Code.txt' 0
 :loop
 ;////////////////////
 ; 一行読み込み
 ;////////////////////
 filereadln fhandle lan4
 if result goto fclose
 lan1 ='10.XXX.'
 lan3 ='ip lan1.3 address 10.YYY.'
 strconcat lan1 lan4
 strconcat lan1 lan2
 inputstr = lan1
 ;////////////////////
 ;   変更先セグメント追加結合
 ;////////////////////
 strconcat lan3 lan4
 strconcat lan3 lan5
 ;////////////////////
 ; login処理
 ;////////////////////
 connect lan1
 wait PasswordPrompt
 sendln Password
 wait '>'
 sendln Username
 wait PasswordPrompt
 sendln Password
 ;////////////////////
 ; config変更
 ; そのまま流すと速すぎて？エラーになるので1秒pauseを入れる
 ;////////////////////
 ;---ここから---
 sendln lan3
 pause 1
 ;---ここまで---
 sendln 'save'
 pause 1
 sendln 'exit'
 pause 1
 sendln 'exit'
 ;////////////////////
 ; ファイル最後まで繰り返す
 ;////////////////////
 pause 2
 goto loop
 ;////////////////////
 ; ファイルクローズ
 ;////////////////////
 :fclose
 fileclose fhandle
※ログの保存は・・・なし(^^;)。あと変数のネーミングが分かりにくいなと反省中。