■Topics

---

特定のサービスを開始するサンプルです。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 Ret As Long

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

    Ret = Ser.StartService()

Next

If Ret = 0 Then
    MsgBox "サービスの開始に成功しました。"
Else
    MsgBox "サービスの開始に失敗しました。"
End If

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

End Sub

---

■Comment

---

今回サービスを開始するサンプルを実行する為に、Alerterサービスをテストとして使用します。もちろんサービスを開始するサンプルですのでこのサービスをすでに使用していて開始していればサンプルの実行が失敗します。
StartServiceメソッドを使用してサービスを開始します。このメソッドを実行すると結果が帰ってきます。0であれば成功ですがそれ以外の値が帰ってくれば失敗したことになります。それ以外の値が示すエラーステータスはWMI SDKを参照してください。ちなみにすでにサービスが開始していれば10が帰ってきます。

---