■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 Ret As Long

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

    Ret = Ser.ChangeStartMode("Disabled")

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

---

今回サービスを再開するサンプルを実行する為に、Wireless Zero Configurationサービスをテストとして使用します。スタートアップの種類が現在どうなっているか確認しておきましょう。ChangeStartModeメソッドを使用してスタートアップの種類を変更します。引数としてどのステータスに変更するか指定を行います。以下例です。

自動：Automatic

手動：Manual

無効：Disabled

このメソッドを実行すると結果が帰ってきます。0であれば成功ですがそれ以外の値が帰ってくれば失敗したことになります。それ以外の値が示すエラーステータスはWMI SDKを参照してください。

---

WMI を本で勉強したい方へ。 Windows PowerShellインアクション を読んでみては?
なかなか WMI のことが乗っている書籍は少ないですが…管理系業務に係る方には楽しめるかも?