【URLエンコード実装】MSXML2.DOMDocument の nodeTypedValue を利用した文字列の相互変換
開発現場でVBScriptを使った自動化スクリプトを書く際、避けて通れないのがWeb APIとの連携やHTTP通信だ。ここで必ずと言っていいほど牙を向くのが 「URLエンコード（パーセントエンコーディング）」 の壁である。
「たかが文字列の置換だろう」と、`Replace`関数を重ねてスペースを `%20` にし、日本語をそのまま送り込んでHTTP 400エラーや文字化けの荒波に沈んだエンジニアを、私は数え切れないほど見てきた。
サードパーティ製のライブラリが入れられない閉じたエンタープライズ環境において、VBScript単体でUTF-8のURLエンコードを安全に実装するにはどうすべきか？
今回は、Windows標準コンポーネントである `MSXML2.DOMDocument` の型変換機能（`nodeTypedValue`）をハックし、外部依存ゼロ・文字化け完全耐性を実現する極限のテクニックを伝授する。
—
なぜ従来の `Server.UrlEncode` や自前置換では通用しないのか？
まず、初学者が陥るアンチパターンを整理しておこう。
1. 自前の `Replace` による置換
- 記号やマルチバイト文字（日本語など）の組み合わせが無限に存在するため、網羅的な置換ロジックを書くのは不可能に近い。保守性も最悪である。
2. `Scripting.FileSystemObject` や古いADOの限界
- これらはローカルのANSIコードページ（Shift-JISなど）に引きずられやすく、現代のWeb APIが要求する 「UTF-8ベースのパーセントエンコーディング」 を正確にハンドリングできない。
3. ASP環境に依存した `Server.UrlEncode`
- これはWSH（`.vbs`）単体では利用できない。
我々が求めるのは、WSH（Cscript / Wscript）環境単体で動作し、任意の文字列を確実に UTF-8 バイト列へ変換し、それをHEX表現（`%XX`）へ変換する仕組みだ。ここで登場するのが、XMLDOMのバイナリデータ保持能力である。
—
アーキテクチャの核心：`MSXML2.DOMDocument` と `nodeTypedValue`
`MSXML2.DOMDocument` は、XMLをパースするためだけのオブジェクトではない。内部に “bin.hex” や “bin.base64” といったデータ型（`dt:dt`）を持つノードを作成し、そこにデータを流し込むことで、COMの世界とバイナリの世界を橋渡しする強力なコンポーネントに変貌する。
特に `nodeTypedValue` プロパティは、VARIANT型のバイナリ配列（VT_UI1 | VT_ARRAY）を直接読み書きできる。この特性を利用すれば、以下のパイプラインで完全なURLエンコード・デコードが成立する。
- エンコードの流れ: 文字列 $\rightarrow$ UTF-8バイナリ配列 $\rightarrow$ 16進数文字列（HEX） $\rightarrow$ `%` 区切りのURLエンコード形式へ整形
- デコードの流れ: `%XX` 形式の文字列 $\rightarrow$ バイナリ配列 $\rightarrow$ UTF-8として文字列へ復元
—
プロダクションコード：コピペで使える堅牢なライブラリ
以下のコードは、エラーハンドリングとメモリ効率、特殊文字の判定精度を極限まで高めた実務仕様のVBScriptである。そのまま `.vbs` ファイルとして保存し、検証してほしい。
‘ ==============================================================================
‘ Script Name : UrlUtility.vbs
‘ Description : MSXML2.DOMDocumentを活用したUTF-8完全対応のURLエンコード/デコード
‘ Author ：Chief Architect
‘ ==============================================================================
Option Explicit
WScript.Echo “— URLエンコードテスト —”
Dim originalText, encodedText, decodedText
originalText = “こんにちは、VBScript世界！100%安全なAPI通信 & テスト#1?=”
‘ エンコード実行
encodedText = UrlEncode(originalText)
WScript.Echo “Encoded: ” & encodedText
‘ デコード実行
decodedText = UrlDecode(encodedText)
WScript.Echo “Decoded: ” & decodedText
If originalText = decodedText Then
WScript.Echo vbCrLf & “[SUCCESS] データの整合性検証に成功しました。”
Else
WScript.Echo vbCrLf & “[ERROR] データが一致しません。”
End If
‘ ——————————————————————————
‘ Function: UrlEncode
‘ 任意の文字列を UTF-8 パーセントエンコーディングする
‘ ——————————————————————————
Function UrlEncode(ByVal strVal)
If VarType(strVal) <> vbString Or Len(strVal) = 0 Then
UrlEncode = “”
Exit Function
End If
Dim objStream, binData, i, b, hexStr
Dim sb
‘ 1. ADODB.Streamを使用して文字列をUTF-8のバイナリ配列に変換
Set objStream = CreateObject(“ADODB.Stream”)
objStream.Type = 2 ‘ adTypeText
objStream.Charset = “UTF-8”
objStream.Open
objStream.WriteText strVal
objStream.Position = 0
objStream.Type = 1 ‘ adTypeBinary
binData = objStream.Read
objStream.Close
Set objStream = Nothing
‘ 2. MSXML2.DOMDocumentでバイナリをHEX文字列に変換
Dim xmlDoc, node
Set xmlDoc = CreateObject(“MSXML2.DOMDocument”)
Set node = xmlDoc.createElement(“tmp”)
node.dataType = “bin.hex”
node.nodeTypedValue = binData
hexStr = node.text
Set node = Nothing
Set xmlDoc = Nothing
‘ 3. HEX文字列を2文字ずつ区切り、URLエンコード形式（%XX）に変換
‘ RFC 3986に基づく安全な文字（A-Z, a-z, 0-9, -, _, ., ~）以外はエンコードする
Set sb = CreateObject(“System.Collections.StringBuilder”) ‘ ※環境により使えない場合は文字列連結で代替（後述）
For i = 1 To Len(hexStr) Step 2
b = Mid(hexStr, i, 2)
Dim charCode
charCode = “&H” & b
‘ 制御文字やエンコード対象外文字の判定
‘ ここではアルファベット・数字・一部記号以外をすべて %XX に変換
Select Case Chr(charCode)
Case “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, _
“N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, _
“a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, _
“n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”, _
“0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “-“, “_”, “.”, “~”
UrlEncode = UrlEncode & Chr(charCode)
Case Else
UrlEncode = UrlEncode & “%” & UCase(b)
End Select
Next
End Function
‘ ——————————————————————————
‘ Function: UrlDecode
‘ URLエンコードされた文字列を元のUTF-8文字列に戻す
‘ ——————————————————————————
Function UrlDecode(ByVal strVal)
If VarType(strVal) <> vbString Or Len(strVal) = 0 Then
UrlDecode = “”
Exit Function
End If
Dim i, hexStr, c, nextC, hexPair
hexStr = “”
‘ 1. “%XX” 形式をバイナリ用のHEX文字列に再構築
i = 1
Do While i <= Len(strVal)
c = Mid(strVal, i, 1)
If c = "%" And i + 2 <= Len(strVal) Then
hexPair = Mid(strVal, i + 1, 2)
' 16進数として妥当か簡易チェック
If IsHex(hexPair) Then
hexStr = hexStr & hexPair
i = i + 3
Else
hexStr = hexStr & ToHex(Asc("%"))
i = i + 1
End If
ElseIf c = "+" Then
' 従来のクエリ文字列のスペース（+）を考慮する場合
hexStr = hexStr & ToHex(Asc(" "))
i = i + 1
Else
hexStr = hexStr & ToHex(Asc(c))
i = i + 1
End If
Loop
' 2. MSXML2.DOMDocumentでHEX文字列をバイナリに戻す
Dim xmlDoc, node, binData
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Set node = xmlDoc.createElement("tmp")
node.dataType = "bin.hex"
On Error Resume Next
node.text = hexStr
If Err.Number <> 0 Then
UrlDecode = “”
Exit Function
End If
binData = node.nodeTypedValue
Set node = Nothing
Set xmlDoc = Nothing
‘ 3. ADODB.StreamでバイナリをUTF-8文字列としてデコード
Dim objStream
Set objStream = CreateObject(“ADODB.Stream”)
objStream.Type = 1 ‘ adTypeBinary
objStream.Open
objStream.Write binData
objStream.Position = 0
objStream.Type = 2 ‘ adTypeText
objStream.Charset = “UTF-8”
UrlDecode = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function
‘ 補助関数: 文字のASCIIコードを2桁のHEXに変換
Function ToHex(ByVal ascVal)
Dim h
h = Hex(ascVal)
If Len(h) = 1 Then h = “0” & h
ToHex = h
End Function
‘ 補助関数: 文字列が16進数2桁か判定
Function IsHex(ByVal s)
If Len(s) <> 2 Then
IsHex = False
Exit Function
End If
Dim c1, c2
c1 = UCase(Mid(s, 1, 1))
c2 = UCase(Mid(s, 2, 1))
IsHex = (InStr(“0123456789ABCDEF”, c1) > 0) And (InStr(“0123456789ABCDEF”, c2) > 0)
End Function
—
開発現場で知っておくべき「3つの罠」とアーキテクトからの助言
このコードを実務のファイル連携やデータベース連携に組み込む際、以下のポイントに留意してほしい。
1. メモリリークとオブジェクトのライフサイクル
VBScriptのガベージコレクタは、参照カウント方式である。特に `MSXML2.DOMDocument` や `ADODB.Stream` は内部で大きなメモリバッファを確保するため、処理が終わったら必ず `Set obj = Nothing` を明示し、即座にメモリ解放を行うべきだ。ループ内でこれらを生成・破棄し続けると、肥大化（メモリリーク）を引き起こし、タスクマネージャーのメモリを食い潰す原因になる。
2. 大規模文字列処理におけるパフォーマンス
VBScriptの通常の文字列連結（`str = str & “…”`）は、O(N^2) の計算量を持つため、数万文字を超えるログや巨大なJSONをエンコードしようとすると劇的に遅くなる。上記のコードでは簡潔性のために変数連結を用いているが、プロダクション環境で数KB以上のデータを扱う場合は、JScriptのコンポーネント（`ScriptControl`）をインラインで併用するか、バッファリング手法を検討すること。
3. データベース連携時の文字コード混発リスク
このコードは `ADODB.Stream` を用いることで「UTF-8」を厳密に担保している。もし、社内のレガシーなOracleやSQL Serverに接続する際、データベース側が Shift-JIS（CP932）を前提としている場合、URLエンコードされた文字列のままクエリに突っ込むと思わぬ文字化けを引き起こす。
「通信（API）はUTF-8」「DB保存は環境依存」という境界線を明確にし、スクリプト内で役割を混同させない設計を心がけてほしい。
—
総括
VBScriptはレガシーな言語と揶揄されがちだが、WindowsのCOMアーキテクチャの奥底を理解していれば、今日でもモダンなWeb APIと渡り合えるだけの十分な戦闘力を発揮する。
今回解説した `MSXML2.DOMDocument` の `nodeTypedValue` によるバイナリハックは、URLエンコードだけに留まらず、ファイルのBase64変換など、あらゆるデータ変換の基盤として応用できる。
現場の自動化スクリプトの信頼性を一段上のレベルへ引き上げるために、ぜひこの知見を役立ててほしい。
