; This is a macro for Tera Term
;

;; ログインIP/ID/PW
hostname = '172.30.37.189'
username = 'hoge'
password = 'foobar'

;; ping コマンド
ping_cmd = 'ping -c 5 172.30.37.159'
ping_timeout = 30
ping_retry_num = 3

;; shutdown コマンド
shutdown_cmd = 'ls -la'

;; ログ設定
logdir = 'C:\teraterm_log\'
logfile = logdir
strconcat logfile username
strconcat logfile '@'
strconcat logfile hostname
getdate datetime '-%Y%m%d-%H%M%S'
strconcat logfile datetime
strconcat logfile '.log'
;logopen logfile 0 1

;; プロンプト文字列(Wait 用)
remote_prompt = "$"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; SSHログイン
strconcat msg ':22 /ssh /2 /auth=password /user='
strconcat msg username
strconcat msg ' /passwd='
strconcat msg password
connect msg

;; ログ記録開始
logopen logfile 0 1

;; ping
ping_result = -1

for i 1 ping_retry_num
  wait remote_prompt
  sendln ping_cmd

  timeout = ping_timeout
  waitregex ' 0% packet loss' ' 1?[0-9][0-9]% packet loss'

  if result=1 then
    ;; ping が全て通ったら break
    ping_result = 1
    break
  endif

  if i = ping_retry_num then
    ;; ping 失敗
    ping_result = -1
  endif
next

if ping_result = 1 then
  messagebox 'ping が成功しました。' '通信成功'
else
  messagebox 'ping が成功しませんでした。再度実行してください。' '通信失敗'
endif

yesnobox '停止しますか？' '確認'
if result then
  wait remote_prompt
  sendln shutdown_cmd
  wait remote_prompt
endif

;; ログ記録終了
logclose

;; 切断
closett