VBScriptを掌握する極限の知見：WMIを用いたネットワーク構成の動的制御
現場の泥臭い自動化を支え続けてきた諸君、あるいはレガシーと最先端の狭間で苦闘するエンジニアへ。
「モダンなPowerShellがあるのに、なぜ今さらVBScriptなのか」——そう問うのは野暮というものだ。Windowsの深淵、OSの心臓部に直結するWMI（Windows Management Instrumentation）を叩く際、VBScriptは今なお最も軽量で、依存関係の少ない「兵器」である。
今回は、ネットワーク設定という、誤ればシステム管理者の首を絞めるクリティカルな領域を、WMI `Win32_NetworkAdapterConfiguration` を用いて制御する。単なるコードの羅列ではない。堅牢なアーキテクチャを構築するための「作法」を伝授する。
—
1. WMI接続の哲学：メモリとリソースの管理
WMIオブジェクトを扱う際、初心者は `GetObject` を乱発し、メモリリークの温床を作る。我々が書くべきは、OSのプロセスに負担をかけない「静かなコード」だ。
ネットワーク設定の変更は、OS側の設定テーブルを書き換える行為であり、即座にネットワークスタックに影響を与える。そのため、以下の原則を遵守せよ。
- 権限の管理: ネットワーク設定変更には `Administrator` 権限が必須である。スクリプト実行時に権限チェックを挟むのは大前提だ。
- オブジェクトの解放: `Set obj = Nothing` を怠ることは、メモリに対する背信行為である。スコープを厳格に管理せよ。
- 同期と非同期の理解: `EnableStatic` メソッドは即時実行されるが、設定の反映には僅かなラグがある。連続実行時はエラーハンドリングを怠るな。
—
2. 実装：IP・DNS動的切り替えスクリプト
以下は、信頼性を担保したネットワーク設定変更のコアロジックだ。
‘
‘ Network Configurator for WMI (Version 1.0.0)
‘ 権限：管理者特権必須
‘
Option Explicit
‘ 設定値の定数定義
Const IP_ADDR = “192.168.1.50”
Const SUBNET = “255.255.255.0”
Const GATEWAY = “192.168.1.1”
Const DNS_LIST = “8.8.8.8,8.8.4.4”
Sub SetNetworkConfig()
Dim objWMIService, colAdapters, objAdapter, errResult
‘ WMIへの接続（ローカルホスト）
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ DHCPが有効なアダプタではなく、特定の条件のアダプタを選択するクエリ
‘ IPEnabled=True は重要。無効なアダプタへの書き込みを防ぐ
Set colAdapters = objWMIService.ExecQuery _
(“SELECT FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True”)
For Each objAdapter In colAdapters
‘ IPアドレスとサブネットの設定
errResult = objAdapter.EnableStatic(Array(IP_ADDR), Array(SUBNET))
If errResult <> 0 Then WScript.Echo “IP設定失敗: ” & errResult
‘ ゲートウェイの設定
errResult = objAdapter.SetGateways(Array(GATEWAY), Array(1))
If errResult <> 0 Then WScript.Echo “ゲートウェイ設定失敗: ” & errResult
‘ DNSの設定
errResult = objAdapter.SetDNSServerSearchOrder(Split(DNS_LIST, “,”))
If errResult <> 0 Then WScript.Echo “DNS設定失敗: ” & errResult
Next
‘ メモリ最適化：オブジェクトの明示的破棄
Set colAdapters = Nothing
Set objWMIService = Nothing
End Sub
‘ 実行
SetNetworkConfig
—
3. シニアエンジニアが意識すべき「罠」
このスクリプトを実環境に投入する際、以下の3点に注意せよ。
① インデックスの罠
`Win32_NetworkAdapterConfiguration` は、OSが認識しているすべてのネットワークアダプタ（仮想NIC、VPNアダプタ含む）を列挙する。特定のNIC（例: Ethernet）のみを対象にしたい場合は、`Caption` や `Description` プロパティを `InStr` でフィルタリングする処理を必ず追加すること。さもなくば、VPN接続が切断される惨事に見舞われる。
② WMIの非同期挙動
設定変更は即時実行だが、ネットワークスタックがそれを反映し、IPとして認識するまでには数百ミリ秒のタイムラグがある。もしこの直後にネットワーク通信を行うロジックを組むならば、`WScript.Sleep 2000` 程度のバッファを設け、かつ `Ping` 等で接続確認を行うロジックを組み込むのが「プロ」の仕事だ。
③ エラーコードの解読
`EnableStatic` メソッドが返す戻り値（0は成功）を無視してはならない。68（インデックスエラー）や70（権限不足）が発生した場合、なぜ失敗したのかをイベントログに書き出す仕組みを実装しておくことで、トラブルシュートの工数を劇的に減らせる。
—
終わりに：ツールを超えて
VBScriptは、今や「過去の遺物」と揶揄されることもある。しかし、OSの内部構造を理解し、WMIという強力なAPIを直接叩く経験は、どの言語に行っても通用する普遍的な知見だ。
このスクリプトをただコピペして終わるな。この背後にあるWindowsのネットワークスタックの挙動、WMIの名前空間、そしてオブジェクトのライフサイクルを深く理解せよ。それこそが、伝説的な自動化エンジニアへの第一歩となる。
現場からは以上だ。健闘を祈る。
