【REST API連携】MSXML2.ServerXMLHTTP を用いたJSONレスポンスの取得とスクリプト制御によるWebサービス統合
レガシーシステムの地平において、VBScript（Visual Basic Scripting Edition）はいまだに死んでいない。いや、Windowsの根幹を支える自動化レイヤーとして、インフラストラクチャの裏側で静かに、しかし確実に稼働し続けている。
新規のモダンなシステム開発であれば、C#、Python、あるいはNode.jsを選択するのが当然の摂理だ。しかし、Active Directoryドメインコントローラーのグループポリシー、閉域網のレガシーサーバー群、あるいは専用端末のキッティング環境において、「追加のランタイムインストールが一切不要」で「OS標準機能だけで完結する」というVBScriptの特権的優位性は、現代においても何人たりとも揺るがすことができない。
今回は、このレガシーなVBScriptの限界領域を突破し、現代のインフラストラクチャの必須要件である「REST APIとの統合」を極限まで最適化されたコードで実現する手法を解説する。
—
1. なぜ `MSXML2.ServerXMLHTTP` なのか？
VBScriptからHTTP通信を行う際、開発者はしばしば `MSXML2.XMLHTTP` を選択しがちだ。しかし、これは致命的な設計ミスを招く。
`XMLHTTP` は本来、Internet Explorerのコンテキスト（クライアントサイド）を想定して設計されており、非同期通信の制御やセキュリティゾーンの制約、UIスレッドとの結びつきに起因する不安定さを抱えている。
一方、`MSXML2.ServerXMLHTTP.6.0` は、サーバーサイド（無人実行環境）での利用を前提にゼロから設計された。
- スレッドセーフな設計
- 厳密なタイムアウト制御の完備
- プロキシサーバーや認証情報の高度なハンドリング
企業内のバッチ処理やAPI連携において、使用すべきは常に `ServerXMLHTTP` であり、特に枯渇リスクのない最新のバージョン `6.0` を明示的に指定すべきである。
—
2. タイムアウト制御と例外処理の極意
ネットワークI/Oを伴うスクリプトにおいて、タイムアウト設定の欠如はシステム全体の停止（ハングアップ）を意味する。`ServerXMLHTTP` では、`setOption` メソッドを用いてミリ秒単位でのタイムアウト制御が可能だ。
以下のコードは、単にリクエストを投げるだけでなく、DNS解決、接続確立、送信、受信の各フェーズにおける耐障害性を考慮した実装である。
Option Explicit
‘ ==============================================================================
‘ 堅牢な REST API 連携テンプレート (GET / POST)
‘ ==============================================================================
Dim objHttp
Dim strUrl, strPayload, strResponse
Dim lngTimeoutResolve, lngTimeoutConnect, lngTimeoutSend, lngTimeoutReceive
‘ 1. オブジェクトの生成 (MSXML2.ServerXMLHTTP.6.0 の強制)
On Error Resume Next
Set objHttp = CreateObject(“MSXML2.ServerXMLHTTP.6.0”)
If Err.Number <> 0 Then
WScript.Echo “[FATAL] MSXML2.ServerXMLHTTP.6.0 が利用できません。環境を確認してください。”
WScript.Quit 1
End If
On Error GoTo 0
‘ 2. タイムアウト設定の構成 (ミリ秒単位: 例は全て 5000ms = 5秒)
‘ setOption の第1引数インデックス:
‘ 0: resolveTimeout (DNS)
‘ 1: connectTimeout (TCP接続)
‘ 2: sendTimeout (データ送信)
‘ 3: receiveTimeout (データ受信)
lngTimeoutResolve = 5000
lngTimeoutConnect = 5000
lngTimeoutSend = 5000
lngTimeoutReceive = 5000
objHttp.setOption 0, lngTimeoutResolve
objHttp.setOption 1, lngTimeoutConnect
objHttp.setOption 2, lngTimeoutSend
objHttp.setOption 3, lngTimeoutReceive
‘ 3. エンドポイントとペイロードの定義
strUrl = “https://api.example.com/v1/resource”
‘ — 【GETリクエストの場合】 —
Call ExecuteGetRequest(objHttp, strUrl)
‘ — 【POSTリクエストの場合（JSON送信）】 —
‘ strPayload = “{“”key””:””value””,””action””:””sync””}”
‘ Call ExecutePostRequest(objHttp, strUrl, strPayload)
‘ 4. 確実なオブジェクトの破棄（メモリリーク防止）
Set objHttp = Nothing
WScript.Quit 0
‘ ==============================================================================
‘ サブルーチン: GETリクエスト実行
‘ ==============================================================================
Sub ExecuteGetRequest(ByRef http, ByVal url)
On Error Resume Next
http.Open “GET”, url, False ‘ 第3引数 False = 同期通信
‘ 必要に応じてヘッダーを追加
http.setRequestHeader “User-Agent”, “VBScript-ServerXMLHTTP/1.0”
http.setRequestHeader “Accept”, “application/json”
http.Send
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 通信例外発生: ” & Err.Description
Exit Sub
End If
On Error GoTo 0
If http.Status = 200 Then
WScript.Echo “[SUCCESS] HTTP 200 OK”
‘ レスポンスの取得 (UTF-8を正しく扱うためには responseText を使用)
strResponse = http.responseText
WScript.Echo “Response Body:” & vbCrLf & strResponse
Else
WScript.Echo “[WARNING] 異常ステータスコード受領: ” & http.Status & ” – ” & http.statusText
End If
End Sub
‘ ==============================================================================
‘ サブルーチン: POSTリクエスト実行
‘ ==============================================================================
Sub ExecutePostRequest(ByRef http, ByVal url, ByVal payload)
On Error Resume Next
http.Open “POST”, url, False
http.setRequestHeader “Content-Type”, “application/json; charset=utf-8”
http.setRequestHeader “Accept”, “application/json”
http.Send payload
If Err.Number <> 0 Then
WScript.Echo “[ERROR] POST通信例外発生: ” & Err.Description
Exit Sub
End If
On Error GoTo 0
If http.Status = 200 Or http.Status = 201 Then
WScript.Echo “[SUCCESS] POST完了. Status: ” & http.Status
WScript.Echo “Response Body:” & vbCrLf & http.responseText
Else
WScript.Echo “[ERROR] POST失敗. Status: ” & http.Status & ” – ” & http.statusText
End If
End Sub
—
3. ネイティブパーサーなき世界での JSON 制御
VBScriptの最大の足枷は、「JSONをネイティブに解釈するパーサーが存在しない」という点だ（JScriptエンジンを介する裏技もあるが、セキュリティポリシーやメンテナンス性の観点から本番環境での採用は推奨されない）。
外部ライブラリ（COMコンポーネント）のインストールが許されない閉域環境において、JSONをどう料理すべきか？
答えはシンプルで、「正規表現（RegEx）と文字列操作関数による擬似パース（抽出）」、あるいは 「WScript.Shell を利用した外部スクリプト（PowerShell）への委譲」 である。
ここでは、巨大なJSONではない、設定値やステータスコードなどの「ピンポイントな値の抽出」をVBScript単体で高速かつ安全に行う正規表現アプローチを示す。
正規表現を用いたキー値抽出のアルゴリズム
例えば、以下のようなJSONレスポンスから `”status”: “success”` や `”id”: 12345` の値を取り出したいとする。
{
“status”: “success”,
“data”: {
“id”: 12345,
“name”: “Production-Server-01”
}
}
この文字列から値を抽出手順をVBScriptで実装する。
‘ ==============================================================================
‘ VBScript 正規表現による JSON 簡易パース関数
‘ ==============================================================================
Function ParseJsonValue(ByVal jsonText, ByVal targetKey)
Dim regEx, matches, extractedVal
Set regEx = New RegExp
‘ 対象キーに続く値（文字列または数値）をキャプチャする正規表現パターン
‘ 例: “targetKey”\s:\s”([^”]+)” または “targetKey”\s:\s([0-9\.]+)
‘ ここでは汎用的に、ダブルクォーテーションで囲まれた値、または数値をキャプチャする
regEx.Pattern = “””” & targetKey & “””\s:\s(?:””([^””])””|([0-9\.]+))”
regEx.IgnoreCase = True
regEx.Global = False
If regEx.Test(jsonText) Then
Set matches = regEx.Execute(jsonText)
If matches.Count > 0 Then
‘ グループ1（文字列）またはグループ2（数値）のどちらがマッチしたか
If matches(0).SubMatches(0) <> “” Then
extractedVal = matches(0).SubMatches(0)
Else
extractedVal = matches(0).SubMatches(1)
End If
End If
End If
Set regEx = Nothing
ParseJsonValue = extractedVal
End Function
‘ 使用例
Dim jsonSample, extractedId, extractedStatus
jsonSample = “{“”status””:””success””,””data””:{“”id””:12345,””name””:””Production-Server-01″”}}”
extractedStatus = ParseJsonValue(jsonSample, “status”)
extractedId = ParseJsonValue(jsonSample, “id”)
WScript.Echo “Extracted Status: ” & extractedStatus ‘ 出力: success
WScript.Echo “Extracted ID: ” & extractedId ‘ 出力: 12345
この正規表現アプローチは、複雑なネスト構造を持つ巨大なJSONには向かないが、フラットな構造のAPIレスポンス（死活監視のステータス取得、トークン認証の応答など）であれば、外部依存関係を一切持たず、極めて高速に動作する。
—
4. チーフアーキテクトからの警鐘：メモリ最適化とライフサイクル管理
レガシーなWScript環境において、スクリプトが異常終了する原因の多くは 「COMオブジェクトの解放漏れによるメモリリーク（COMコンポーネントの参照カウント不整合）」 である。
1つのスクリプト内で何度も `CreateObject` を呼び出し、ローカル変数がスコープを抜けても、COMの背後にあるメモリが即座に解放されるとは限らない。特に、長期間稼働するタスクスケジューラや、ループ処理内でAPIを何千回も叩くようなバッチ処理では、以下の鉄則を遵守しなければならない。
1. オブジェクトは必ず明示的に破棄する
使い終わったオブジェクトは、スコープの終了を待たず、直ちに `Set obj = Nothing` を実行すること。
2. ループ内での `CreateObject` の禁止
ループの内部で `ServerXMLHTTP` などの重いオブジェクトを生成・破棄してはならない。インスタンスはループの外で1つだけ生成し、`Open` と `Send` をループ内で使い回す（リユースする）設計にせよ。
3. エラーハンドリング時のクリーンアップ
`On Error Resume Next` を多用するVBScriptでは、エラー発生時に処理が中断され、`Set obj = Nothing` がスキップされるリスクがある。必ずエラーキャッチブロック内で確実にオブジェクトを解放する構造（あるいはサブルーチン化）を徹底すること。
—
総括
VBScriptによるREST API連携は、一見すると「時代遅れのハック」に見えるかもしれない。しかし、アーキテクチャの本質を理解し、適切なオブジェクト選定、厳密なタイムアウト制御、そしてリソースのライフサイクル管理を徹底すれば、現代のクラウドサービスやマイクロサービス群とも強固に結合する「信頼性の高いエンタープライズ・オートメーション」へと昇華させることができる。
レガシーを嘆くのではなく、レガシーを支配せよ。それこそが、真のインフラストラクチャ・エンジニアの矜持である。
