ビット演算こそがレガシーの極致。VBScriptで「状態」を支配する
諸君、今さらVBScriptか、と鼻で笑う者はいないだろう。我々が対峙しているのは、Windowsの深淵に根を張るレガシーシステムだ。メモリリソースが潤沢ではない環境、あるいは数千行に及ぶ設定ファイルを行き来するような現場において、スマートなエンジニアが取るべきは「無駄なメモリを消費しない」という哲学である。
今日は、論理演算子を駆使した「ビットフラグ制御」について語る。これは、単なる古いテクニックではない。状態管理のオーバーヘッドを極限まで削ぎ落とす、プロの職人技だ。
—
なぜ、今さら「ビットフラグ」なのか
例えば、ユーザーの権限管理を考えてみてほしい。`IsAdmin`, `CanRead`, `CanWrite`, `CanDelete`……これらを個別のBoolean変数や文字列で管理するのは、メモリの無駄であり、比較処理のコストも高い。
ビットフラグを用いれば、これらすべてをたった一つの整数（Long型）に凝縮できる。メモリ消費は最小、かつCPUサイクルも最小。何より、複数のフラグを一括で判定・更新できるのが最大の利点だ。
ビットフラグの基本定義
まずは定数を定義する。値は必ず「2の累乗（1, 2, 4, 8, 16…）」にすること。これがビットの各桁に対応する。
‘ 権限フラグの定義（2の累乗でビットを割り当てる）
Const PERM_NONE = 0 ‘ 0000
Const PERM_READ = 1 ‘ 0001
Const PERM_WRITE = 2 ‘ 0010
Const PERM_DELETE = 4 ‘ 0100
Const PERM_EXEC = 8 ‘ 1000
—
現場で通用する「極限のフラグ制御」実装
VBScriptの論理演算子 `And`, `Or`, `Not` を駆使して、状態を操作するモジュールを作成する。以下のコードは、まさに現場でそのまま使えるクオリティだ。
‘ 状態操作クラス（あるいは関数ライブラリ）
Class StatusManager
‘ 権限付与：Or演算
Public Function AddFlag(ByVal currentFlags, ByVal flag)
AddFlag = currentFlags Or flag
End Function
‘ 権限剥奪：And + Not演算
Public Function RemoveFlag(ByVal currentFlags, ByVal flag)
RemoveFlag = currentFlags And (Not flag)
End Function
‘ 権限判定：And演算
Public Function HasFlag(ByVal currentFlags, ByVal flag)
‘ Andの結果がフラグ自身と一致すれば、そのビットは立っている
HasFlag = ((currentFlags And flag) = flag)
End Function
End Class
‘ — 使用例 —
Dim manager: Set manager = New StatusManager
Dim userStatus: userStatus = PERM_READ ‘ 初期状態はREADのみ
‘ 権限追加：READ + WRITE
userStatus = manager.AddFlag(userStatus, PERM_WRITE)
‘ 判定：WRITE権限を持っているか？
If manager.HasFlag(userStatus, PERM_WRITE) Then
WScript.Echo “WRITE権限が許可されています。”
End If
‘ メモリ解放の徹底（VBScriptにおける鉄則）
Set manager = Nothing
—
チーフアーキテクトからの忠告
1. メモリ管理の意識
VBScriptはガベージコレクションが強力ではない。特にWSH環境での長時間稼働プロセスでは、オブジェクトを `Set = Nothing` で解放し、不要な文字列連結を避けることが「死なないスクリプト」を書く唯一の道だ。ビット演算はプリミティブな型（Long）で完結するため、GCの負荷を一切かけない。これが、高負荷なシステム間連携でビット演算を選択する理由である。
2. 負の数と論理演算の罠
VBScriptの `Long` 型は符号付き32bit整数だ。ビット演算を行う際、最上位ビット（符号ビット）が反転すると、予期せぬ負の数値が出現する。フラグとして使用するのは下位のビットのみに留め、`&HFFFF` 程度のマスクをかける癖をつけておくと、バグの温床を断てる。
3. API呼び出しとの親和性
Windows APIを `WMI` や `ADODB.Stream` 等を通じて叩く際、フラグ引数はしばしばビット列を要求される。この時、ビット演算を理解していないエンジニアは「定数を足し算」するような愚行を犯す。しかし、真のエンジニアは `Or` を使う。`1 + 1` は `2` になるが、`1 Or 1` は `1` だ。この「冪等性」の確保こそが、堅牢なシステムを構築する鍵となる。
—
結びに代えて
レガシーな技術を「古い」と切り捨てるのは簡単だ。だが、その技術がなぜ長年生き残っているのか。それは、シンプルであるがゆえに、計算機の論理に極めて近い場所にあるからだ。
ビットフラグを使いこなすということは、計算機の言葉で直接対話するということだ。諸君、メモリの一ビットに至るまで制御し、無駄のない、研ぎ澄まされたコードを書き続けろ。それが、伝説を創るということだ。
