【実務・中級編】【バイナリデータの16進数ダンプ表示】ADODB.Streamで取得したバイト配列を16進表記（Hex Dump）に整形・出力する開発支援モジュール – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScriptを掌握する極限の知見：ADODB.Streamで挑む「バイナリ16進数ダンプ」の極意

開発現場でレガシーシステムを保守していると、避けて通れないのが「バイナリデータの解析」だ。
「文字化けする」「特定の制御コードが混入している」「ファイルヘッダーが破損している」――。こうしたトラブルに直面した時、あなたはどうしているだろうか？ バイナリエディタを開くのも手だが、自動化パイプラインの中で、あるいはサーバー上の限られた環境で、即座にデータの正体を暴く必要がある場面では、WSH（Windows Script Host）とVBScriptが最強の武器となる。

今回は、`ADODB.Stream`のバイナリモードを駆使し、任意のファイルからバイト配列を抽出、人間が読める「16進数ダンプ（Hex Dump）」へと美しく整形・出力する開発支援モジュールを伝授する。

単に動くだけのコードではない。メモリの効率、VBScript特有の型変換の罠、そして大規模ファイルを扱う際のパフォーマンスを極限まで考慮した、プロダクション品質のアーキテクチャを解説しよう。

—

1. なぜ「VBScriptでバイナリ処理」なのか？

VBScriptは「古い言語」と揶揄されることがある。しかし、Windows環境であれば追加のランタイムを一切必要とせず、メモ帳一つで書いて即座に実行できるという圧倒的な機動性を持っている。

とりわけ、COMコンポーネントである `ADODB.Stream` を組み合わせることで、VBScriptの弱点である「バイト単位の厳密な操作」を克服できる。しかし、ここで一つ大きな壁が立ち塞がる。

VBScriptにおける「バイト配列」の罠

`ADODB.Stream` から取得したバイナリデータ（`Read` メソッドの戻り値）は、VBScriptの内部では 「バイト配列（Byte Array, VT_ARRAY | VT_UI1）」 として扱われる。これをVBScriptの標準的な文字列操作関数にそのまま放り込むと、型ミスマッチを起こすか、マルチバイト文字への暗黙の変換によってデータが破壊される。

さらに、VBScriptには真の意味での「動的配列の効率的な結合機能」や「高速な文字列バッファ（StringBuilder）」が存在しない。数メガバイトあるファイルを `&` 演算子で愚直に文字列結合していけば、メモリの再割り当て（Reallocation）が頻発し、スクリプトは確実にフリーズする。

このボトルネックをどう突破するか？ それが本アーキテクチャの核心である。

—

2. 堅牢な設計アプローチ：バイナリダンプエンジンの要件

プロダクション環境で耐えうるデバッグツールを作るためには、以下の設計原則を遵守しなければならない。

1. メモリリークとリソースの確実な解放
`ADODB.Stream` オブジェクトは適切に `Close` し、インスタンスを破棄（`Nothing`）しなければ、IISや長時間稼働するバッチにおいてリソース枯渇を引き起こす。
2. 高速な文字列構築
大量の16進数文字列を生成するため、VBScript標準の `&` ではなく、内部的に最適化された配列結合（`Join` 関数）を活用する。
3. 人間工学に基づいた出力フォーマット
おなじみの `Address | Hex Bytes (16 bytes) | ASCII Representation` の3ペイン構造を採用し、制御コード（`0x00`〜`0x1F` 等）はドット（`.`）に置き換えて視認性を高める。

—

3. 実装コード：HexDump.vbs

以下のコードは、指定したファイルのバイナリを読み込み、標準出力（またはテキストファイル）へ16進数ダンプを出力する実用モジュールだ。そのままコピペして `cscript HexDump.vbs <ファイルパス>` として実行できる。

‘ ==============================================================================
‘ 開発支援モジュール: バイナリデータ16進数ダンプ出力ツール (HexDump.vbs)
‘ ターゲット環境: WSH (Windows Script Host) / CScript推奨
‘ ==============================================================================
Option Explicit

‘ メイン処理の実行
Call Main()

Sub Main()
Dim objArgs, targetFile
Set objArgs = WScript.Arguments

‘ 引数チェック
If objArgs.Count < 1 Then WScript.Echo "使用方法: cscript HexDump.vbs <対象ファイルパス>”
WScript.Quit(1)
End If

targetFile = objArgs(0)

‘ ファイル存在確認
Dim objFSO
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
If Not objFSO.FileExists(targetFile) Then
WScript.Echo “エラー: 指定されたファイルが見つかりません -> ” & targetFile
WScript.Quit(2)
End If

WScript.Echo “=== バイナリダンプ開始: ” & targetFile & ” ===”

‘ バイナリデータの取得とダンプ実行
Dim binData
binData = ReadBinaryFile(targetFile)

If Not IsEmpty(binData) Then
Call PrintHexDump(binData)
End If

WScript.Echo “=== 処理完了 ===”
End Sub

‘ ——————————————————————————
‘ ADODB.Stream を使用してファイルをバイト配列として読み込む
‘ ——————————————————————————
Function ReadBinaryFile(filePath)
Dim objStream
Set objStream = CreateObject(“ADODB.Stream”)

On Error Resume Next
objStream.Type = 1 ‘ adTypeBinary
objStream.Open
objStream.LoadFromFile filePath

If Err.Number <> 0 Then
WScript.Echo “ファイル読み込みエラー: ” & Err.Description
ReadBinaryFile = Empty
Exit Function
End If
On Error GoTo 0

‘ バイト配列を取得
ReadBinaryFile = objStream.Read

objStream.Close
Set objStream = Nothing
End Function

‘ ——————————————————————————
‘ バイト配列を16進数ダンプ形式に整形して出力する
‘ ——————————————————————————
Sub PrintHexDump(ByRef byteArray)
Dim lngLower, lngUpper, i, j
lngLower = LBound(byteArray)
lngUpper = UBound(byteArray)

Dim offset, hexChunk, asciiChunk, b, lineStr
Dim bytesPerLine
bytesPerLine = 16

For i = lngLower To lngUpper Step bytesPerLine
offset = Right(“00000000” & Hex(i), 8)

hexChunk = Array()
asciiChunk = Array()
ReDim hexChunk(bytesPerLine – 1)
ReDim asciiChunk(bytesPerLine – 1)

For j = 0 To bytesPerLine – 1
If (i + j) <= lngUpper Then b = AscB(MidB(byteArray, i + j + 1, 1)) hexChunk(j) = Right("0" & Hex(b), 2) ' 制御文字（0x20未満、0x7F以上）は '.' に置換 If b >= 32 And b < 127 Then asciiChunk(j) = Chr(b) Else asciiChunk(j) = "." End If Else hexChunk(j) = " " asciiChunk(j) = " " End If Next ' 1行分の文字列を構築 (Address Hex 16Bytes ASCII) lineStr = offset & " " & Join(hexChunk, " ") & " |" & Join(asciiChunk, "") & "|" WScript.Echo lineStr Next End Sub ---

4. コードの深層解説：なぜこの実装なのか？

① `MidB` と `AscB` による安全なバイト抽出

VBScriptには純粋な「バイト型配列のインデックスアクセス」がVB6のように直感的にはできない（安全でない配列操作を伴うため）。そのため、バイナリデータ（バリアント型バイト配列）に対して `MidB` 関数と `AscB` 関数を適用する。
これにより、文字コード変換のオーバーヘッドをバイパスし、純粋な数値としてのバイト値（0〜255）をノーコストで抽出できる。

② メモリ効率を考慮した配列キャッシュ (`ReDim`)

1バイトごとに文字列結合を行うのではなく、1行（16バイト分）のチャンクを一時配列（`hexChunk`, `asciiChunk`）に格納し、最後に `Join` 関数で一気に結合している。
これにより、ガベージコレクタの負荷を劇的に軽減し、数MBクラスのバイナリであっても軽快に処理が完了する。

③ 厳密なエラーハンドリング

ファイルが他のプロセスによってロックされている場合や、アクセス権限がない場合、`ADODB.Stream.Open` や `LoadFromFile` は容赦なくクラッシュする。`On Error Resume Next` でトラップし、致命的な異常終了を防ぐ堅牢な構造にしている点に注目してほしい。

—

5. 現場で使える活用シーン

このモジュールを準備しておけば、以下のような実務上の課題を数秒で解決できる。

• API連携時のBOM・文字コードトラブルの解析

「UTF-8で受け取ったはずのJSONがパースエラーになる」という時、ファイルの先頭にEF BB BF（BOM）が意図せず付加されていないかを瞬時に視認できる。

• 独自バイナリプロトコルのデバッグ

社内ニッチな機器制御や、レガシーな通信ログ（TCPストリームのダンプ等）のフォーマット検証において、開発環境を選ばず即座に解析基盤を構築できる。

—

チーフアーキテクトからの提言

「動けばいいや」と書かれたスパゲッティコードは、いつの日か必ず開発者自身の首を絞める。VBScriptという一見プリミティブな言語であっても、背後にあるCOMのライフサイクル、メモリの挙動、そして型システムの仕組みを理解していれば、モダンな言語に劣らない堅牢なツールを作り上げることが可能だ。

現場のプロとして、場当たり的なスクリプトではなく、こうした「構造化された知見」を武器に業務の自動化を泥臭く、かつエレガントにやり遂げてほしい。