【テクニカル・上級編】【実務中級者向け】FSOログ解析による特定アラート（FATAL/WARN）出現回数カウントと閾値超過メッセージ生成 – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScript (Visual Basic Scripting Edition)

2026.10.31

【極限の知見】FSOによるログ解析の設計思想：リソース管理とパフォーマンスの境界線

【極限の知見】FSOによるログ解析の設計思想：リソース管理とパフォーマンスの境界線

多くのエンジニアは、VBScriptを「過去の遺物」と切り捨てる。しかし、Windows Serverが稼働し続けるエンタープライズの最前線において、レガシーなシステムと密結合した自動化スクリプトは、今なおシステムの生命線を支えている。

FSO（FileSystemObject）を用いたログ解析は、一見すると単純な文字列検索の繰り返しに見えるだろう。だが、数GBに及ぶ巨大なログファイルを扱う際、あるいは書き込み中のファイルに対して操作を行う際、稚拙な実装は即座にメモリ不足（Out of Memory）やファイルロックによるシステム停止を招く。

本稿では、単なる「動くコード」ではない。リソースのライフサイクルを完全に掌握し、低リソース環境下でも堅牢に動作する、プロフェッショナル向けのログ解析アーキテクチャを提示する。

1. 致命的な設計ミス：`ReadAll` の誘惑を断ち切れ

初心者が陥る最大の罠は、`TextStream.ReadAll` メソッドの使用である。

' --- 破滅へのコード ---
Set ts = fso.OpenTextFile(logPath, 1)
strContent = ts.ReadAll ' ここでログ全量をメモリに展開する
' ... 文字列操作 ...

この実装は、ログファイルがメモリ容量を超えた瞬間にプロセスをクラッシュさせる。また、たとえメモリに余裕があったとしても、巨大な文字列オブジェクトの生成は、VBScriptの弱点であるガベージコレクション（あるいは参照カウントの減衰）の負荷を極限まで高め、システムのレスポンスを著しく低下させる。

真のアーキテクトは、常に「ストリーム」として考える。
ファイル全体をメモリに載せるのではなく、一行ずつ（`ReadLine`）読み込み、その場で評価し、即座に破棄する。これにより、ファイルサイズが10GBであろうと、メモリ消費量は常に一定（定数時間 $O(1)$）に保たれる。

2. オブジェクトのライフサイクルとCOM参照の管理

VBScriptはCOM（Component Object Model）技術に基づいている。オブジェクトの解放を怠ることは、単なるメモリリークに留まらず、ファイルハンドルを掴み続けることによる「ファイル使用中」エラーの温床となる。

`Set obj = Nothing` は、単なる作法ではない。それは、COMオブジェクトの参照カウントを明示的にデクリメントし、OSに対してリソースの返還を宣言する生存戦略である。特にループ内でFSOオブジェクトやTextStreamオブジェクトを生成する場合、各イテレーションの終端で確実に解放を行うことが、長期間稼働する運用スクリプトの鉄則である。

3. 実装：高信頼性ログ解析エンジン

以下に、実務でそのまま投入可能な、閾値判定機能を備えたログ解析スクリプトの雛形を示す。

' ==========================================================================
' Script Name: LogSentinel_Pro.vbs
' Description: FSOを用いた高効率ログ解析およびアラート生成エンジン
' Author: Legendary Chief Architect
' ==========================================================================

Option Explicit

' --- 定数定義（環境に合わせて調整） ---
Const TARGET_DIR      = "C:\Logs\AppLog\"        ' 監視対象ディレクトリ
Const SUMMARY_PATH    = "C:\Logs\Alerts\summary.txt" ' サマリー出力先
Const THRESHOLD_FATAL = 5                        ' FATALの許容閾値
Const THRESHOLD_WARN  = 20                       ' WARNの許容閾値

' --- 検索パターン ---
Const PATTERN_FATAL   = "FATAL"
Const PATTERN_WARN    = "WARN"

' メイン処理
Call Main()

Sub Main()
    Dim fso, targetFolder, file, logSummary
    Dim fatalCount, warnCount
    
    On Error Resume Next ' エラーハンドリングの開始
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ディレクトリの存在確認
    If Not fso.FolderExists(TARGET_DIR) Then
        WScript.Echo "Error: Target directory not found: " & TARGET_DIR
        Exit Sub
    End If

    Set targetFolder = fso.GetFolder(TARGET_DIR)
    fatalCount = 0
    warnCount = 0

    ' 1. ログファイルの走査
    For Each file In targetFolder.Files
        ' 拡張子が .log のもののみ対象とする（フィルタリングによる高速化）
        If LCase(fso.GetExtensionName(file.Name)) = "log" Then
            ' ファイル解析実行
            Call AnalyzeLogFile(file.Path, fatalCount, warnCount)
        End If
    Next

    ' 2. 閾値判定とサマリー生成
    If fatalCount >= THRESHOLD_FATAL Or warnCount >= THRESHOLD_WARN Then
        Call GenerateSummary(fatalCount, warnCount)
    End If

    ' 3. リソースの明示的解放
    Set targetFolder = Nothing
    Set fso = Nothing
    
    If Err.Number <> 0 Then
        WScript.Echo "Critical Error: " & Err.Description
    Else
        WScript.Echo "Analysis completed successfully."
    End If
End Sub

''' <summary>
''' ファイルを一行ずつ走査し、特定パターンをカウントする
''' </summary>
Sub AnalyzeLogFile(strFilePath, ByRef fatalCount, ByRef warnCount)
    Dim fso, ts, strLine
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ファイルを読み取り専用(1)で開く
    ' ※ 書き込み中のファイルによるロックを回避するため、可能な限り最小限の権限で開く
    Set ts = fso.OpenTextFile(strFilePath, 1)
    
    If Err.Number <> 0 Then
        ' ファイルが他プロセスにロックされている場合のハンドリング
        ' 実務ではここでリトライロジックを組み込むのが定石
        Err.Clear
        Exit Sub
    End If

    ' 行単位のストリーム処理（メモリ最適化の要）
    Do Until ts.AtEndOfStream
        strLine = ts.ReadLine
        
        ' InStrによる高速なパターンマッチング
        If InStr(strLine, PATTERN_FATAL) > 0 Then
            fatalCount = fatalCount + 1
        ElseIf InStr(strLine, PATTERN_WARN) > 0 Then
            warnCount = warnCount + 1
        End If
    Loop

    ' TextStreamの即時解放
    ts.Close
    Set ts = Nothing
    Set fso = Nothing ' ループ内での再生成を避ける設計だが、安全のため解放
End Sub

''' <summary>
''' 閾値超過時の通知用テキストを生成する
''' </summary>
Sub GenerateSummary(fCount, wCount)
    Dim fso, ts, strMsg, timestamp
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' タイムスタンプの取得
    timestamp = Now
    
    strMsg = "========================================" & vbCrLf & _
             "ALERT: Threshold Exceeded at " & timestamp & vbCrLf & _
             "----------------------------------------" & vbCrLf & _
             "FATAL occurrences: " & fCount & " (Threshold: " & THRESHOLD_FATAL & ")" & vbCrLf & _
             "WARN occurrences:  " & wCount & " (Threshold: " & THRESHOLD_WARN & ")" & vbCrLf & _
             "========================================" & vbCrLf

    ' サマリーの追記（ForAppending = 8）
    ' ファイルが存在しない場合は新規作成、存在する場合は末尾に追加
    On Error Resume Next
    Set ts = fso.OpenTextFile(SUMMARY_PATH, 8, True)
    If Err.Number = 0 Then
        ts.WriteLine strMsg
        ts.Close
    Else
        WScript.Echo "Failed to write summary: " & Err.Description
    End If
    On Error GoTo 0
    
    Set ts = Nothing
    Set fso = Nothing
End Sub

4. 実務における「極限の知見」

ファイルロックへの対抗策

実運用環境では、ログファイルはアプリケーションによって常に書き込み（Append）されている。`OpenTextFile` でエラーが発生する場合、それはファイルが排他的にロックされていることを意味する。
真に堅牢なスクリプトにするならば、`Err.Number = 70` (Permission Denied) を検知した際に、`WScript.Sleep` を用いた指数バックオフ（Exponential Backoff）によるリトライメカニズムを実装すべきである。

パフォーマンスの限界

`InStr` 関数はVBScriptにおいて極めて高速に動作する。正規表現（`RegExp` オブジェクト）を使用することも可能だが、単純なキーワード検索であれば `InStr` を選択するのが、オーバーヘッドを最小化する正解である。正規表現は、複雑なパターン（例：日付形式の抽出など）が必要な場合にのみ、局所的に使用せよ。

システム間連携への昇華

このスクリプトを単なるテキスト出力で終わらせてはならない。`WshShell.Run` メソッドを用いて、閾値超過時に `msg * “Critical Alert”` を実行したり、あるいは `SendKeys` を介さずとも、Windows Event Logにイベントを書き込む（`eventcreate` コマンドの呼び出し）ことで、運用監視基盤（ZabbixやSystem Center等）との連携を可能にする。

結言

VBScriptは、使い手次第で「脆弱なスクリプト」にも「鋼の自動化ツール」にもなり得る。
オブジェクトのライフサイクルを意識し、メモリ消費を一定に保ち、エラーという不確実性を制御する。この設計思想こそが、レガシー環境におけるエンジニアの価値を決定づけるのである。