VBScriptを掌握せよ：RDPセッション判定による実行環境最適化の極意
VBScriptは、もはや「過去の遺物」などではない。Windowsの骨髄にまで深く入り込み、OSの挙動を直接制御できる数少ない言語の一つだ。特に、RDP（リモートデスクトップ）環境とローカルコンソールが混在する現代のエンタープライズ環境において、スクリプトが「どこで」走っているかを正しく認識させることは、システム管理者にとっての必須教養である。
本稿では、WMIを駆使したセッション判定の真髄と、リソースを枯渇させないためのメモリ管理について、現場の最前線を生き抜くエンジニアのために記す。
—
1. なぜ「環境判定」が必要なのか
RDP経由での実行において、安易な `MsgBox` は致命的だ。セッションが切断された状態でGUIを表示しようとすれば、スクリプトは応答なしの状態でハングアップし、バックグラウンドで無意味なプロセスを量産する。
真に堅牢なアーキテクトは、スクリプトの先頭で「環境の自己診断」を行う。これこそが、数千台の端末を管理する現場でトラブルを未然に防ぐ唯一の解である。
2. セッション判定の核心：Win32_ComputerSystemの罠
もっとも直感的なのは環境変数 `SESSIONNAME` を確認することだが、これには罠がある。稀に非標準的な環境や特定のグループポリシー下では、この変数が予期せぬ値を返すことがある。
より確実なのは、WMIを通じて `Win32_ComputerSystem` オブジェクトの `Name` やセッション情報を照会することだ。以下に、現場で即座に適用できる最適化された判定ロジックを示す。
実装コード：環境認識型実行制御スクリプト
Option Explicit
‘ 実行環境を判定し、リソース消費を制御するメインルーチン
If IsRemoteSession() Then
‘ RDP環境：GUIを禁止し、ログ出力のみに切り替える
WScript.Echo “RDPセッションを検知：バックグラウンド処理モードで実行します。”
Else
‘ ローカルコンソール：ユーザー対話処理を許可
MsgBox “ローカル環境で実行中。対話モードを有効化します。”, 64, “System Status”
End If
‘ ——————————————————————
‘ セッション判定関数：WMIの負荷を最小化して実行
‘ ——————————————————————
Function IsRemoteSession()
Dim objWMIService, colItems, objItem
Dim isRemote
isRemote = False
‘ WMIへの接続はオーバーヘッドが大きい。必要な時のみインスタンス化する
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select From Win32_ComputerSystem”)
For Each objItem In colItems
‘ UserNameプロパティの形式や、TerminalServerRoleを確認する手法もあるが、
‘ 最も安定的なのはSESSIONNAME環境変数の確認と補完的なチェック
If InStr(1, CreateObject(“WScript.Shell”).ExpandEnvironmentStrings(“%SESSIONNAME%”), “RDP”) > 0 Then
isRemote = True
End If
Next
‘ 【重要】オブジェクトの明示的解放
‘ VBScriptのガベージコレクションを信用してはならない
Set colItems = Nothing
Set objWMIService = Nothing
IsRemoteSession = isRemote
End Function
—
3. シニアエンジニアが守るべきメモリ最適化の掟
VBScriptにおいてメモリリークは「死」を意味する。特にWMIオブジェクトやCOMコンポーネントをループ内で生成し続けるような記述は、短時間でメモリを食いつぶす。
オブジェクト解放の鉄則
1. 明示的な `Nothing` の代入: スコープを抜ける前に、必ず `Set obj = Nothing` を実行すること。これにより、参照カウントが即座にデクリメントされる。
2. ループ内でのインスタンス化を避ける: WMIのクエリなどはループの外で行い、結果セットを保持して処理する。
3. Late Bindingの活用と注意: `CreateObject` による遅延バインディングは、実行時の環境差異に強いが、パフォーマンスには影響する。安定性が必要な箇所では、適切に使い分けること。
—
4. レガシー環境保守の哲学
このスクリプトは、Windows 10/11のみならず、Windows Server 2012以降の環境でも動作する。レガシーシステムの保守において、過剰に新しい技術（PowerShell等）に依存しすぎると、実行権限やセキュリティポリシーで弾かれるリスクがある。
VBScriptは「OSのネイティブ言語」だ。何の依存関係も持たず、OSが起動した瞬間から実行可能であるという点は、災害時や緊急時のシステム復旧において最強の武器となる。
まとめ
技術とは、単にコードを書くことではない。「そのコードがどの環境で、どのようなリソース状況で動くのか」を完全に予見することである。
今回紹介したセッション判定ロジックは、あくまで入り口に過ぎない。君たちが管理するシステムの環境変数を調査し、WMIのプロパティをさらに深く掘り下げてほしい。そこに、VBScriptが持つ本来の、そして最後のパワーが眠っている。
現場からの健闘を祈る。
