VBS（VBScript）による停止しているサービス一覧を取得する方法を紹介
WMIを使って、停止しているサービス一覧を取得
サンプルソース
表示名・サービス名・ステータスを取得
※取得可能なプロパティ（情報）は、以下手順で取得可能⇒WMIのクラス・プロパティ一覧の確認
※「型が一致しません」のエラーが出る場合⇒VBSのWMIの出力で、型が一致しませんのエラーが出る場合
（入力：cscript）
Dim qu,cl,swbe,service,sms1,sms2,sms3
Set swbe = WScript.CreateObject("WbemScripting.SWbemLocator")
Set service = swbe.ConnectServer
Set qu = service.ExecQuery("Select * From Win32_BaseService")
For Each cl In qu
sms1 = cl.DisplayName
sms2 = cl.Name
sms3 = cl.State
if sms3 = "Stopped" then
Wscript.Echo "表示名：" & sms1
Wscript.Echo "サービス名：" & sms2
Wscript.Echo "ステータス："& sms3
end if
Next
（出力）
表示名：1394 OHCI Compliant Host Controller
サービス名：1394ohci
ステータス：Stopped
表示名：3ware
サービス名：3ware
ステータス：Stopped
表示名：ACPI デバイス ドライバー
サービス名：AcpiDev
ステータス：Stopped
表示名：ACPI プロセッサ アグリゲーター ドライバー
サービス名：acpipagr
ステータス：Stopped
表示名：ACPI 電源メーター ドライバー
サービス名：AcpiPmi
ステータス：Stopped
表示名：ACPI ウェイク アラーム ドライバー
サービス名：acpitime
ステータス：Stopped
表示名：ADP80XX
サービス名：ADP80XX
ステータス：Stopped
・・・・・（続く）・・・・