【実務・中級編】【リモート電源制御】WMI (Win32_OperatingSystem) の Win32Shutdown メソッドによる安全なシャットダウン – VBScript (Visual Basic Scripting Edition)解析バイブル

【リモート電源制御】WMI `Win32Shutdown` メソッドによる安全なシャットダウンの極意

インフラ自動化や深夜のバッチ処理の現場において、「処理が終わったら安全にサーバーやクライアントPCをシャットダウンしたい」「リモートから確実に行政・業務端末の電源を制御したい」という要求は、今なお根強く存在する。

安易に `shutdown.exe` を `WScript.Shell` の `Run` で叩いて満足していないだろうか？
その実装、エラーハンドリングや権限昇格（Privilege Escalation）、ネットワークタイムアウトの考慮が抜けており、本番環境で確実に沈黙する「爆弾」を抱えている可能性が高い。

今回は、WMI（Windows Management Instrumentation）の `Win32_OperatingSystem` クラスが持つ `Win32Shutdown` メソッドを駆使し、ローカルおよびリモートマシンの電源をプログラム制御下で完全に掌握するプロダクションコードを解説する。

—

なぜ `shutdown.exe` ではなく WMI なのか？

プロセス起動によるコマンドライン実行（`shutdown /s /m \\computername` など）は、一見手軽に見えるが、スクリプトエンジニアリングの観点からはいくつかの重大な欠点がある。

1. 同期と結果検証の欠如: プロセスが「起動したこと」しか検知できず、リモート側が本当にシャットダウンシーケンスに入ったのか、拒否されたのかをプログラムオブジェクトとして受け取れない。
2. 認証コンテキストの硬直性: ネットワーク越しに別資格情報（Alternate Credentials）を渡して実行する際のハンドリングが脆弱。

WMI（COMインターフェース）を経由すれば、DCOMを介した堅牢な認証、厳密なエラーコードのキャッチ、そしてOS内部の電源管理APIとのダイレクトな対話が可能になる。

—

堅牢な実装のための3大要件

実務で使えるレベルのスクリプトを構築するためには、以下の3点をコードに組み込む必要がある。

1. 特権の有効化 (Privilege Enablement)

WMIでシャットダウンや再起動を行う場合、接続セッションに対して `SeShutdownPrivilege`（シャットダウン特権）を明示的に有効化しなければならない。これを怠ると、コードがどれほど美しくとも、権限不足（エラー `0x5` アクセス拒否など）で容赦なく弾かれる。

2. DCOM接続における「WbemConnectOptions」の制御

リモートマシンを操作する場合、ファイアウォール（TCP 135番および動的RPCポート）の通過に加え、ユーザー認証（NTLM / Kerberos）の整合性が問われる。スクリプト内で動的に資格情報を渡す設計にしておくことが、運用の自動化において不可欠である。

3. 同期/非同期の選択とフラグの理解

`Win32Shutdown` の引数（Flags）には以下の意味がある。

• `0`: ログオフ (Logoff)
• `1`: シャットダウン (Shutdown)
• `2`: 再起動 (Reboot)
• `4`: 強制シャットダウン（プロセス強制終了を伴う – Force）
• `8`: 電源OFF (Power Off)

これらをビット演算（論理和）で組み合わせて使用する（例: `1 + 4 = 5` で「強制シャットダウン」）。

—

プロダクションコード：リモート/ローカル対応 電源制御スクリプト

以下のコードは、エラーハンドリング、特権の有効化、そしてリモート接続時の認証を網羅した、そのまま現場に投入できるVBScriptの完成形である。

‘ ==============================================================================
‘ Script Name : SecureRemoteShutdown.vbs
‘ Description : WMI Win32_OperatingSystem を使用した安全な電源制御スクリプト
‘ Author : 首席インフラ自動化アーキテクト
‘ ==============================================================================

Option Explicit

‘ — 設定エリア —
Const TARGET_COMPUTER = “.” ‘ “.” はローカル。リモートの場合は “192.168.1.50” や “Server01”
Const SHUTDOWN_FLAG = 1 ‘ 1: シャットダウン, 2: 再起動, 8: 電源オフ
Const FORCE_FLAG = 4 ‘ 4: アプリケーションの強制終了を伴う
Const CONST_FLAGS = 1 ‘ SHUTDOWN_FLAG + FORCE_FLAG (例: 5) を指定可能

‘ リモート接続で別資格情報を使う場合は以下を指定（ドメイン環境等）
Dim strUser, strPassword
strUser = “” ‘ 例: “Administrator” (ローカルなら空(“”)でOK)
strPassword = “” ‘ 例: “Password123”

Call Main()

Sub Main()
On Error Resume Next

WScript.Echo “=== WMI 電源制御処理を開始します ===”
WScript.Echo “対象ターゲット: ” & TARGET_COMPUTER

‘ 1. SWbemLocator オブジェクトの生成（リモート接続と特権昇格の要）
Dim objLocator
Set objLocator = CreateObject(“WbemScripting.SWbemLocator”)
If Err.Number <> 0 Then
Call HandleError(“SWbemLocator の生成に失敗しました。”)
End If

‘ 2. WMIサービスへの接続（セキュア接続と特権の要求）
Dim objServices
If strUser = “” Then
‘ ローカルまたはカレントユーザーのコンテキストで接続
Set objServices = objLocator.ConnectServer(TARGET_COMPUTER, “root\cimv2”)
Else
‘ 別資格情報での接続
Set objServices = objLocator.ConnectServer(TARGET_COMPUTER, “root\cimv2”, strUser, strPassword)
End If

If Err.Number <> 0 Then
Call HandleError(“WMI サービスへの接続に失敗しました。ネットワーク、ファイアウォール、または資格情報を確認してください。”)
End If

‘ 3. セキュリティ設定の調整（シャットダウン特権の有効化は必須）
objServices.Security_.ImpersonationLevel = 3 ‘ Impersonate
objServices.Security_.Privileges.AddAsString “SeShutdownPrivilege”, True
If Err.Number <> 0 Then
Call HandleError(“シャットダウン特権 (SeShutdownPrivilege) の取得に失敗しました。管理者権限で実行されているか確認してください。”)
End If

‘ 4. Win32_OperatingSystem インスタンスの取得
Dim colOperatingSystems, objOperatingSystem
Set colOperatingSystems = objServices.InstancesOf(“Win32_OperatingSystem”)

For Each objOperatingSystem in colOperatingSystems
‘ 5. Win32Shutdown メソッドの実行
‘ 第1引数: Flags (例: 1 = Shutdown), 第2引数: Reserved (通常 0)
Dim intResult
intResult = objOperatingSystem.Win32Shutdown(CONST_FLAGS, 0)

If Err.Number <> 0 Or intResult <> 0 Then
WScript.Echo “[ERROR] シャットダウンコマンドの実行に失敗しました。戻り値/エラー: ” & intResult & ” (Err: ” & Err.Description & “)”
Else
WScript.Echo “[SUCCESS] シャットダウンコマンドが正常に発行されました。”
End If
Next

On Error GoTo 0
WScript.Echo “=== 処理を終了します ===”
End Sub

Sub HandleError(strMessage)
WScript.Echo “[CRITICAL ERROR] ” & strMessage
WScript.Echo “Error Number: &H” & Hex(Err.Number) & ” (” & Err.Number & “)”
WScript.Echo “Description : ” & Err.Description
WScript.Quit 1
End Sub

—

現場でありがちな「ハマりポイント」と対策

プロフェッショナルであれば、コードが動いた後運用フェーズで発生するトラブルも想定しておかなければならない。

1. エラー `0x80041003` (Access Denied) が出る

• 原因: ターゲットPCのUAC（ユーザーアカウント制御）や、DCOMのセキュリティポリシーがリモートからの管理者アクセスをブロックしている。
• 対策:
• リモート先のレジストリ `LocalAccountTokenFilterPolicy`（DWORD: 1）を設定し、ローカル管理者アカウントでのリモートUAC制限を無効化する。
• ファイアウォールで WMI (Windows Management Instrumentation) 受信規則が有効になっていることを確認する。

2. スクリプトが即座に終了するが電源が切れない

• 原因: `Win32Shutdown` は非同期に近い挙動を示すことがあり、対象OS側でアプリケーションが「保存を確認しています」等のダイアログを出してシャットダウンプロセスをブロックしている。
• 対策: `CONST_FLAGS` に強制終了フラグ (`4`) を付与し、実行中のプロセスを強制的に落とす設計にする（ただし、未保存データの消失リスクがあるため業務要件と要相談）。

—

アーキテクトからの総評

VBScriptはレガシーな言語として扱われがちだが、Windows OSの内部構造（WMI/COM）とダイレクトに対話できる極めて強力なインターフェースである。

今回紹介した `Win32Shutdown` の制御ロジックは、PowerShellの `Stop-Computer` や `Invoke-CimMethod` の背後で動いている仕組みそのものだ。
ツールの大小に関わらず、「なぜ権限が必要なのか」「エラーをどうトラップすべきか」という設計思想を貫くことこそが、障害のない強靭な自動化インフラを作り上げる唯一の道である。