TeraTeam使っててログファイルで不便に感じていたので複数のサイトを参考にしてvbsを作成してみました。

このvbs経由で起動させると起動した年月日時間でログファイルを作成できます。

あと保存する際の場所も指定したフォルダ直下に年月でのフォルダ(YYYYMMフォルダ)を作成して保存していきます。

頻繁に起動する人にとっては後で確認しやすいかもしれません。

 

以下をコピペしてvbsで保存すれば使えます。

ただし、自己責任で行って下さい。

何が起こっても責任は一切負いません。

 

ーーーーーーーーーーーーーーーここまでーーーーーーーーーーーーーーーーー

 

‘###############################

‘#### TeraTerm Log自動作成   ###

‘###############################

‘ TeraTermのLogファイルを年月＋時間(TeraTerm-YYYYMMDD-HHMMSS.log)で自動保存していく。

 

Option Explicit

 

On Error Resume Next

 

 

Dim WshShell

Dim AppName

DIM oExec

 

Dim NowTime

Dim NowDate                                                                                                                                                                                     ‘実行日の年月日

 

Dim objFS

 

Dim AppPath                                                                                                                                                                                     ‘TeraTermのインストールフォルダ

Dim AppExe                                                                                                                                                                                      ‘TeraTermのexeファイル名

Dim LogPath                                                                                                                                                                                     ‘ログ保存フォルダ

Dim LogPathMonth                                                                                                                                                                        ‘年月別ログ保存フォルダ

Dim LogName                                                                                                                                                                                     ‘Logファイル名

 

‘——————-設定—————————————————————————-

‘保存先フォルダ指定

LogPath = “F:\TeraTermLog”

 

‘TeraTermのインストール先指定

AppPath = “C:\Program Files\teraterm”

 

‘TeraTermのexeファイル名

AppExe = “ttermpro.exe”

‘—————————————————————————————————

 

‘現在の日付取得

NowDate = Cstr(Right(“0000” & Year(now),4) & Right(“00” & Month(now),2) & Right(“00” & Day(now),2))

 

‘現在の時間を取得

NowTime = Cstr(Right(“00” & Hour(now),2) & Right(“00” & Minute(now),2) & Right(“00” & Second(now),2))

 

 

‘基本Log保存フォルダ作成(存在しない場合のみ)

SET objFS = CreateObject(“Scripting.FileSystemObject”)

IF objFS.FolderExists(LogPath) Then

‘       ‘ファイルが存在した場合

Else

‘       ‘ファイルが存在しない場合

objFS.CreateFolder(LogPath)

End If

 

 

LogPathMonth = LogPath & “\” & Cstr(Right(“0000” & Year(now),4) & Right(“00” & Month(now),2))

 

‘年月別Log保存フォルダ作成(存在しない場合のみ)

SET objFS = CreateObject(“Scripting.FileSystemObject”)

IF objFS.FolderExists(LogPathMonth) Then

‘       ‘ファイルが存在した場合

Else

‘       ‘ファイルが存在しない場合

objFS.CreateFolder(LogPathMonth)

End If

 

‘ログファイル名指定(YYYYMMDD-HHMMSS.log)

LogName = LogPathMonth & “\TeraTerm-” & NowDate & “-” & NowTime & “.Log”

 

‘Set application command line

AppName = AppPath & “\” & AppExe & ” /L=” & LogName

 

‘TeraTermを実行

Set WshShell = CreateObject(“WScript.Shell”) Set oExec = WshShell.Exec(AppName)

 

 

 

ーーーーーーーーーーーーーーーここまでーーーーーーーーーーーーーーーーー