VBScriptでTLS 1.2/1.3を強制する：レガシーの檻から現代のWeb APIへ接続する極意
VBScriptを扱う我々にとって、`WinHttp.WinHttpRequest.5.1`は単なる通信用オブジェクトではない。それは、モダンなクラウドインフラと、数十年前のOSが同居する「不均衡なエンタープライズ環境」を繋ぐ唯一の架け橋だ。
多くのシステム管理者が、TLS 1.2以上の接続を求められた瞬間に「VBScriptはもう限界だ」と諦める。だが、それは間違いだ。`WinHttp.WinHttpRequest`の内部構造を理解し、そのオプションを直接制御すれば、レガシー環境からでも現代の堅牢なAPIと対話が可能になる。
本稿では、その「禁断の扉」を開く実装手法を、メモリ管理の鉄則と共に伝授する。
—
なぜ「デフォルト」では通信に失敗するのか
モダンなWebサービスは、セキュリティ上の理由からTLS 1.0や1.1を容赦なく切り捨てている。しかし、Windowsのデフォルト設定や古いOS環境（Server 2008 R2/2012など）では、`WinHttpRequest`が依然として非推奨のプロトコルでハンドシェイクを試みようとする。
解決策はシンプルだ。`Option`プロパティを操作し、通信相手と合意する前に、こちら側から「TLS 1.2/1.3しか受け付けない」という意志をプロトコルレベルで突きつける必要がある。
Option 9 (SecureProtocols) の真実
`WinHttpRequest`には、通信の暗号化プロトコルを制御するフラグが存在する。`Option(9)`がそれだ。
- 0x00000080: TLS 1.0
- 0x00000200: TLS 1.1
- 0x00000800: TLS 1.2
- 0x00002000: TLS 1.3
これらをビット論理和で指定することで、接続時の挙動を完全に制御する。
—
実装：TLS 1.2/1.3 強制接続コード
以下のコードは、単に動くというレベルを超え、メモリの解放やエラーハンドリングを考慮した「実戦仕様」である。
‘ — 極限の通信モジュール: SecureWinHttp —
Option Explicit
Const WinHttpRequestOption_SecureProtocols = 9
‘ TLS 1.2 (0x800) + TLS 1.3 (0x2000) = 0x2800 (10240)
Const SecureProtocol_TLS12_TLS13 = 10240
Public Function GetSecureWebData(ByVal strUrl)
Dim objWinHttp
On Error Resume Next
‘ オブジェクトのインスタンス化
Set objWinHttp = CreateObject(“WinHttp.WinHttpRequest.5.1”)
If Err.Number <> 0 Then
WScript.Echo “Critical: WinHttpオブジェクトの生成に失敗しました。”
Exit Function
End If
‘ 【重要】プロトコルの強制指定（通信開始前に設定すること）
objWinHttp.Option(WinHttpRequestOption_SecureProtocols) = SecureProtocol_TLS12_TLS13
‘ 通信の実行
objWinHttp.Open “GET”, strUrl, False
objWinHttp.Send
If objWinHttp.Status = 200 Then
GetSecureWebData = objWinHttp.ResponseText
Else
WScript.Echo “Error: HTTP Status ” & objWinHttp.Status
End If
‘ 【厳守】リソースの明示的解放
‘ VBScriptはGCに依存するため、大規模処理では明示的なNothing代入が必須
Set objWinHttp = Nothing
On Error GoTo 0
End Function
—
エンジニアのための深掘り：保守と運用における注意点
1. レジストリとの相関関係
コードで `SecureProtocols` を指定しても、OS側のレジストリ `SCHANNEL` 設定でそのプロトコルが無効化されていれば通信は通らない。もし上記コードでも接続できない場合は、以下のレジストリキーを確認せよ。
- `HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS 1.2\Client`
- `Enabled` 値が `1` になっているか確認すること。
2. メモリのライフサイクル
VBScriptのオブジェクトは、スコープを抜ければ解放されるが、長時間稼働するWSHプロセス（タスクスケジューラでの常駐バッチなど）においては、`Set obj = Nothing` を怠ることは死を意味する。特にCOMオブジェクトの生成と破棄を繰り返すループ構造では、メモリリークの温床となる。常に「生成・使用・即時破棄」のサイクルを意識せよ。
3. TLS 1.3のサポート状況
`WinHttpRequest` が TLS 1.3 をサポートするかどうかは、OSのカーネルバージョンとWinHTTPライブラリのパッチレベルに依存する。もし Windows Server 2016 以前の環境で TLS 1.3 を指定してエラーが出る場合は、フラグを `0x0800` (TLS 1.2のみ) にダウングレードして運用するのが、シニアエンジニアとしての「現実的な落とし所」である。
—
結びに代えて
VBScriptは、もはや過去の遺物ではない。適切に扱い、OSの深部まで理解した人間にとっては、極めて強力な「自動化の武器」であり続ける。
「古い言語だからできない」という言葉は、思考停止の言い訳に過ぎない。技術の深淵を知り、APIの仕様を読み解き、限界まで追い込む。それこそが、我々エンジニアが守り続けるべき矜持である。
さあ、レガシーなインフラに、現代の通信を流し込め。
