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

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

---