ログ取り用のteratermマクロ

意外と動く。

ディレクトリ作成のところが動きにくいため要編集

StrIP = 'アドレスを入れる:23 /nossh /T=1'
connect StrIP
	call LOGIN
	call CMDLST
endif

:LOGIN	;ログインラベル

;文字化け用。TTX Kanji Menuというプラグインを入れて使う。
;    ; UTF8 
;    callmenu 54013  ; [KanjiCode] Recv: UTF-8 
;    callmenu 54113  ; [KanjiCode] Send: UTF-8 
;    ; EUC 
;    callmenu 54011  ; [KanjiCode] Recv: EUC-JP 
;    callmenu 54111  ; [KanjiCode] Send: EUC-JP 
;    ; SJIS 
;    callmenu 54010  ; [KanjiCode] Recv: Shift_JIS 
;    callmenu 54110  ; [KanjiCode] Send: Shift_JIS 

wait 'Username:' 'Password:'
	if result = 1 then
	call LOGINPASS1
	return
	else
	call LOGINPASS2
	return
	endif
		:LOGINPASS1		;ベタ打ち行。AAA認証の場合の子ラベル
		sendln 'ユーザ名を入れる
		wait 'Password:'
		sendln 'パスワードを入れる'
		call LOGINENBLE
		return

		:LOGINPASS2		;ベタ打ち行。ローカル認証の場合の子ラベル
		sendln 'パスワードを入れる'
		call LOGINENBLE
		return
		
			:LOGINENBLE	;ベタ打ち行。enableモードに入るための孫ラベル
			wait '>'
			sendln 'ena'
			wait 'Password:'
			sendln 'パスワードを入れる'
			wait '#'
			sendln ''
			return

:CMDLST	;コマンド流し入れラベル
flushrecv
getdir CD
setdir CD
foldercreate '\log'

mpause 10
loglog = CD
strconcat loglog '\log\'	;ログ用のディレクトリ
strconcat loglog 'ログの名前.log'
logopen loglog 1 1			;ログの取得を開始

sendln 'ter len 0'
pause 1
sendln 'show clock'
pause 1
sendln 'show run'
pause 1
sendln 'exit'