こんにちは。自動化の深淵へようこそ。
VBScriptは、現代の言語から見れば「化石」のように思えるかもしれません。しかし、WindowsというOSの心臓部に最も近い場所で、軽量かつ強力に動作するこの言語を掌握することは、エンジニアとしての「地力」を極限まで高める行為です。
今日は、VBScriptには標準で備わっていない「ビット演算」という武器を手に入れましょう。これができれば、OSの設定ファイルやバイナリデータ、あるいは複雑なフラグ管理を、魔法のように操れるようになります。
—
1. なぜVBScriptで「ビット操作」が必要なのか？
通常、プログラミングにおいてフラグ管理は「1つの変数に複数の状態（ON/OFF）を詰め込む」ために行われます。
例えば、`Read`権限、`Write`権限、`Execute`権限を1つの数値で管理する際、ビット操作は必須です。
VBScriptの標準機能である `And`, `Or`, `Xor` は存在しますが、最も重要な「シフト演算（<<, >>）」がありません。 これを2の乗除算で補完し、論理演算と組み合わせることで、私たちは低レイヤーな制御の門を叩くことができます。
—
2. 禁断のライブラリ：ビット操作モジュール
以下のコードは、VBScriptでビットシフトを擬似再現したものです。これをコピーして `BitLib.vbs` として保存してください。
‘ — BitOperation Library —
‘ VBScriptの数値は内部的にLong(32bit)として扱われます。
‘ 左シフト: 値を 2^n 倍する
Function LShift(Value, Shift)
LShift = Value (2 ^ Shift)
End Function
‘ 右シフト: 値を 2^n で割る（整数除算）
Function RShift(Value, Shift)
RShift = Int(Value / (2 ^ Shift))
End Function
‘ フラグ判定: 特定ビットが立っているか
Function HasFlag(Value, Bit)
‘ And演算でビットマスクをかけ、結果が0以外ならTrue
HasFlag = ((Value And (2 ^ Bit)) <> 0)
End Function
‘ フラグ付与: 特定ビットを立てる
Function SetFlag(Value, Bit)
SetFlag = (Value Or (2 ^ Bit))
End Function
‘ フラグ削除: 特定ビットを落とす
Function ClearFlag(Value, Bit)
ClearFlag = (Value And Not (2 ^ Bit))
End Function
—
3. 実践：フラグを操るデモンストレーション
では、このライブラリを使って「ユーザー権限」を管理してみましょう。
‘ 権限の定義（ビット位置）
Const READ_BIT = 0 ‘ 2^0 = 1
Const WRITE_BIT = 1 ‘ 2^1 = 2
Const EXEC_BIT = 2 ‘ 2^2 = 4
Dim userPermissions
userPermissions = 0 ‘ 初期状態：権限なし
‘ 1. 権限を付与する
userPermissions = SetFlag(userPermissions, READ_BIT)
userPermissions = SetFlag(userPermissions, EXEC_BIT)
‘ 2. 権限をチェックする
If HasFlag(userPermissions, READ_BIT) Then
WScript.Echo “読み込み権限があります。”
End If
‘ 3. 権限を削除する
userPermissions = ClearFlag(userPermissions, EXEC_BIT)
WScript.Echo “現在の権限フラグ数値: ” & userPermissions
—
4. 陥りやすい罠と対策
VBScriptでビット演算を扱う際、必ず直面する壁が2つあります。
① 符号ビットの悪戯（オーバーフロー）
VBScriptの数値型は、計算の過程で「負数（符号付き）」として扱われることがあります。特に31ビット目（MSB）を立てると、数値が負の値に反転してしまいます。
- 対策: 常に `And &H7FFFFFFF` を行うなどして、意図しない符号反転をマスクしてください。
② 計算精度の限界
VBScriptの数値計算は浮動小数点ベースで行われることが多く、巨大な数値を扱うと精度が落ちます。
- 対策: あくまで「32ビットの整数範囲」内での操作に限定してください。それ以上の操作が必要な場合は、素直に `ADODB.Stream` オブジェクトを使用してバイナリとして読み書きすることをお勧めします。
—
最後に：エンジニアとしての一歩先へ
ビット操作を理解すると、コンピュータが「いかにして情報を詰め込んでいるか」という本質が見えてきます。マクロの記録で生成された長いコードを、こうしたロジックで短く、かつ高速に書き換えることができたとき、あなたはもう「初学者」ではありません。
このライブラリをあなたのツールボックスに入れ、ぜひ複雑な自動化に挑戦してみてください。VBScriptは古い言語ですが、そのシンプルさは、あなたの論理的思考を磨くための最高の道場です。
また何か壁にぶつかったら、いつでもここへ戻ってきてください。共に深淵を覗きましょう。
