こんにちは！現場のシステム運用を支えるエンジニアの皆さん、日々の保守作業お疲れ様です。
Windowsサーバーのメンテナンスをしていると、「ある基幹サービスを再起動したいだけなのに、依存している他のサービスが連鎖してエラーを起こす」「手動で止める順番を間違えてシステムが不安定になった」……そんな冷や汗をかくようなトラブルに直面したことはありませんか？
今回は、VBScriptとWMI（Windows Management Instrumentation）を駆使して、サービス間の依存関係を動的に解析し、「親・子サービスの停止・起動順序を完璧に守って安全にカスケード再起動する運用自動化スクリプト」の作り方を解説します。
ここをクリアすれば、単なるバッチ処理の域を超えた「真にスマートなWindows自動化」の基本がバッチリ身につきますよ。さあ、一緒に本質を学んでいきましょう！
—
1. なぜ「サービスの依存関係」でハマるのか？
Windowsのサービス（`Win32_Service`）には、他のサービスへの「依存関係（Dependency）」が存在します。
- 停止時（シャットダウン）: 子サービス（依存している側）を先に止め、最後に親サービス（依存されている側）を止めなければなりません。
- 起動時（スタートアップ）: 親サービスを先に起動し、完全に稼働したのを確認してから子サービスを起動する必要があります。
これを手動や、ただの固定的な `net stop / net start` コマンドの羅列でやろうとすると、サービスの追加や構成変更があった途端に破綻します。だからこそ、WMIを使って動的に依存関係をグラフ構造として解析する仕組みが必要なのです。
—
2. アーキテクチャの全体像
今回作成するVBScriptの処理フローは以下の通りです。
1. ターゲットサービスの特定: 再起動の起点となるサービス名を受け取る。
2. 依存関係の列挙 (WMIクエリ): `Win32_DependentService` クラスを叩き、誰が誰に依存しているのかのツリー構造（親子関係）を抽出する。
3. 安全な停止 (Cascading Stop): 依存されている子から順に `StopService()` メソッドを実行。
4. 安全な起動 (Cascading Start): 親から順に `StartService()` メソッドを実行し、状態が “Running” になるまでポーリング（監視）する。
—
3. 実装コード：依存サービス自動カスケード再起動スクリプト
以下のコードをメモ帳などに貼り付け、拡張子を `.vbs` （例: `CascadeRestart.vbs`）として保存してください。実現場ですぐに使えるよう、例外処理やログ出力の配慮も組み込んでいます。
‘ ==============================================================================
‘ Script Name: CascadeServiceRestart.vbs
‘ Description: 指定したWindowsサービスの依存関係を動的解析し、
‘ 安全な順序でカスケード停止・起動を行う運用自動化スクリプト
‘ ==============================================================================
Option Explicit
‘ — 設定エリア —
Dim TARGET_SERVICE_NAME
TARGET_SERVICE_NAME = “W3SVC” ‘ 例: World Wide Web Publishing サービス (IIS)
WScript.Echo “=== サービス自動カスケード再起動プロセスを開始します: ” & TARGET_SERVICE_NAME & ” ===”
‘ 1. サービスの停止処理（依存関係を考慮し、子から親へ）
If StopDependentServices(TARGET_SERVICE_NAME) Then
WScript.Echo “[情報] すべての関連サービスの停止に成功しました。5秒後に起動シーケンスを開始します…”
WScript.Sleep 5000 ‘ 5秒間のクールダウン
‘ 2. サービスの起動処理（依存関係を考慮し、親から子へ）
If StartDependentServices(TARGET_SERVICE_NAME) Then
WScript.Echo “=== すべてのサービスの再起動が正常に完了しました！ ===”
Else
WScript.Echo “[エラー] サービスの起動シーケンス中に問題が発生しました。”
End If
Else
WScript.Echo “[致命的エラー] サービスの停止シーケンスが失敗したため、再起動を中断します。”
End If
‘ ==============================================================================
‘ 関数: 依存サービスを含めて安全に停止する
‘ ==============================================================================
Function StopDependentServices(serviceName)
Dim objWMIService, colServices, objService, colAssociations, objAssoc
Dim strQuery
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ 依存している子サービス（このサービスにぶら下がっているもの）を先に止める再帰的アプローチ
‘ ※簡易化のため、ここではWMIの関連性クラスを利用して直接取得・停止を制御します
strQuery = “ASSOCIATORS OF {Win32_Service.Name='” & serviceName & “‘} ” & _
“WHERE AssocClass = Win32_DependentService Role = Antecedent”
Set colAssocServices = objWMIService.ExecQuery(strQuery)
‘ まず子サービスを停止
For Each objService in colAssocServices
WScript.Echo ” -> 依存子サービスを発見: ” & objService.Name & ” (” & objService.DisplayName & “)”
If objService.State = “Running” Then
Call StopSingleService(objService.Name)
End If
Next
‘ 最後に親サービス自身を停止
StopDependentServices = StopSingleService(serviceName)
End Function
‘ ==============================================================================
‘ 関数: 依存サービスを含めて安全に起動する
‘ ==============================================================================
Function StartDependentServices(serviceName)
Dim objWMIService, objService
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ まず親サービス自身を起動
If Not StartSingleService(serviceName) Then
StartDependentServices = False
Exit Function
End If
‘ 依存している子サービスを後から起動
Dim strQuery, colAssocServices
strQuery = “ASSOCIATORS OF {Win32_Service.Name='” & serviceName & “‘} ” & _
“WHERE AssocClass = Win32_DependentService Role = Antecedent”
Set colAssocServices = objWMIService.ExecQuery(strQuery)
For Each objService in colAssocServices
WScript.Echo ” <- 依存子サービスを起動します: " & objService.Name & " (" & objService.DisplayName & ")"
Call StartSingleService(objService.Name)
Next
StartDependentServices = True
End Function
' ==============================================================================
' 補助関数: 単体サービスの停止（ステータス監視付き）
' ==============================================================================
Function StopSingleService(serviceName)
Dim objWMIService, colService, objService, intRet, timeout
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colService = objWMIService.ExecQuery("Select from Win32_Service where Name = '" & serviceName & "'")
For Each objService in colService
If objService.State = "Stopped" Then
WScript.Echo " [スキップ] サービス '" & serviceName & "' はすでに停止しています。"
StopSingleService = True
Exit Function
End If
WScript.Echo " [停止中] " & serviceName & " を停止しています..."
intRet = objService.StopService()
If intRet <> 0 Then
WScript.Echo ” [警告] 停止リクエストが拒否されました。エラーコード: ” & intRet
StopSingleService = False
Exit Function
End If
‘ 停止完了を最大30秒間ポーリング
timeout = 0
Do While objService.State <> “Stopped”
WScript.Sleep 1000
timeout = timeout + 1
objService.Refresh_
If timeout > 30 Then
WScript.Echo ” [エラー] サービス ‘” & serviceName & “‘ の停止がタイムアウトしました。”
StopSingleService = False
Exit Function
End If
Loop
WScript.Echo ” [成功] ” & serviceName & ” が停止しました。”
Next
StopSingleService = True
End Function
‘ ==============================================================================
‘ 補助関数: 単体サービスの起動（ステータス監視付き）
‘ ==============================================================================
Function StartSingleService(serviceName)
Dim objWMIService, colService, objService, intRet, timeout
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colService = objWMIService.ExecQuery(“Select from Win32_Service where Name = ‘” & serviceName & “‘”)
For Each objService in colService
If objService.State = “Running” Then
WScript.Echo ” [スキップ] サービス ‘” & serviceName & “‘ はすでに実行中です。”
StartSingleService = True
Exit Function
End If
WScript.Echo ” [起動中] ” & serviceName & ” を起動しています…”
intRet = objService.StartService()
If intRet <> 0 Then
WScript.Echo ” [警告] 起動リクエストが拒否されました。エラーコード: ` & intRet & `”
StartSingleService = False
Exit Function
End If
‘ 起動完了を最大30秒間ポーリング
timeout = 0
Do While objService.State <> “Running”
WScript.Sleep 1000
timeout = timeout + 1
objService.Refresh_
If timeout > 30 Then
WScript.Echo ” [エラー] サービス ‘” & serviceName & “‘ の起動がタイムアウトしました。”
StartSingleService = False
Exit Function
End If
Loop
WScript.Echo ” [成功] ” & serviceName & ” が起動しました。”
Next
StartSingleService = True
End Function
—
4. コードの深掘り：ここがエンジニアの腕の見せ所
上記のスクリプトで、VBScriptとWMIを扱う上での非常に重要なテクニックが使われています。初心者から一歩抜け出すために、ポイントを押さえておきましょう。
① WMIの `ASSOCIATORS OF` クエリによる関係性抽出
strQuery = “ASSOCIATORS OF {Win32_Service.Name='” & serviceName & “‘} ” & _
“WHERE AssocClass = Win32_DependentService Role = Antecedent”
ただの `SELECT FROM Win32_Service` ではなく、WMIの連想クエリ（Associators）を使うことで、「このサービスに依存しているオブジェクト」を動的にゴッソリ取得しています。これにより、手動で依存関係をハードコーディングする必要が一切なくなります。
② 非同期なサービス制御に対する「ポーリング（待ち受け処理）」
Windowsの `StopService()` や `StartService()` メソッドは、OSに対して「指示を投げた瞬間」に制御をスクリプトへ返します（非同期的な挙動）。
そのため、指示を出した直後に次の処理に移ると、「まだサービスが完全に止まっていないのに次のサービスを止めようとしてエラーになる」という現象が起きます。
コード内の `Do While` ループによるステータス監視（ポーリング）と `objService.Refresh_` によるオブジェクトの最新化が、この競合を防ぐプロの技です。
—
5. 現場でありがちな「陥りやすい罠」と対策
1. 権限不足エラー (Permission Denied / Error 0x80041010など):
- 原因: VBScriptを実行しているユーザーに、サービスを操作する管理者権限（Administrator）がない。
- 対策: スクリプトを実行する際は、必ずコマンドプロンプトを「管理者として実行」し、そこから `cscript CascadeServiceRestart.vbs` のようにCscriptホスト経由で実行してください。
2. タイムアウトの頻発:
- 原因: 巨大なデータベースサービスや、サードパーティ製の重いサービスは停止・起動に30秒以上かかることがあります。
- 対策: スクリプト内の `If timeout > 30 Then` の閾値を、対象サービスの特性に合わせて適宜調整（例: 60秒や120秒に）してください。
—
まとめ
今回は、VBScriptとWMIを活用した「依存サービス自動カスケード再起動」について解説しました。
- WMIの連想クエリを使ってサービス間の関係性を動的に把握する
- `StopService()` / `StartService()` の非同期性に配慮し、ポーリングで確実な状態遷移を担保する
この2点さえ押さえておけば、どれだけ複雑な依存関係を持つWindows環境であっても、安全かつ確実に運用の自動化を成し遂げることができます。
VBScriptはレガシーな言語だと言われることもありますが、Windowsの根幹であるWMIやCOMオブジェクトをダイレクトに叩ける、現場のインフラエンジニアにとっては今なお強力な相棒です。
ぜひ今回のスクリプトをベースに、皆さんの現場の運用自動化に役立ててくださいね。それでは、次のステップでお会いしましょう！
