■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.StopService()

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サービスをテストとして使用します。もちろんサービスを停止するサンプルですのでこのサービスを使用していなくて、停止していればサンプルの実行が失敗します。
StopServiceメソッドを使用してサービスを停止します。このメソッドを実行すると結果が帰ってきます。0であれば成功ですがそれ以外の値が帰ってくれば失敗したことになります。それ以外の値が示すエラーステータスはWMI SDKを参照してください。ちなみにすでにサービスが停止していれば5が帰ってきます。

---