■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='Schedule'")
            
For Each Ser In SerSet

    Ret = Ser.PauseService()

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

---

今回サービスを一時停止するサンプルを実行する為に、Task Schedulerサービスをテストとして使用します。ちなみにすでに一時停止または停止していればサンプルの実行が失敗します。
PauseServiceメソッドを使用してサービスを一時停止します。このメソッドを実行すると結果が帰ってきます。0であれば成功ですがそれ以外の値が帰ってくれば失敗したことになります。それ以外の値が示すエラーステータスはWMI SDKを参照してください。ちなみにすでにサービスが一時停止していれば24が帰ってきます。
再開を行うには必ず、ResumeServiceメソッドを使用する必要があります。
こちらにてサービスを再開するサンプルを公開しています。
ちなみに一時停止が行えるサービスは全てのサービスではないことにも注意してください。

---