■Topics

---

OSにセットアップされている全てのサービスを取得するサンプルです。Win32_Serviceクラスを使用します。

---

■Sample Code

---

Private Sub Command1_Click()

Dim SerSet As SWbemObjectSet
Dim Ser As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set SerSet = Service.ExecQuery("Select * From Win32_Service")
            
For Each Ser In SerSet

    MesStr = MesStr & Ser.Caption & vbCrLf

Next

MsgBox "サービスの一覧です。" & vbCrLf & _
        vbCrLf & MesStr & vbCrLf & "ですよ。"

Set SerSet = Nothing
Set Ser = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub

---

■Comment

---

実行するとOSに存在する全てのサービスを表示します。Startedプロパティ、StartModeプロパティ、Stateプロパティ等を参照するとサービスが開始しているか、OS起動時に該当するサービスが開始するようになっているか、現在のステータスはどうか等情報の取得が可能です。

---