サービスを停止する: Win32_Service - WMI Sample (VB)

Topics

特定のサービスを停止するサンプルプログラムです。
Win32_Service クラスを使用します。

VBS (WSH) 版のサンプルコードはこちらで公開しています。

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 が帰ってきます。
なお WMI の使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShell を対象) に関しては、WMI Step も参考にしてみてください。(WMI 初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMI プログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。

WMI Fun !! > WMI Sample (VB) > サービスを停止する

サービスを停止する: Win32_Service - WMI Sample (VB)

Topics

Sample Code

Comment

Recommended book