WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > サービスを停止する |
Panasonic Let'snote を長年愛用しています、その理由は My Let'snote で…
中古車買うならやっぱり IT 関連情報を気軽に知りたい方へ、 サービスを停止する: Win32_Service - WMI Sample (VB)Topics
特定のサービスを停止するサンプルプログラムです。
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 サービスをテストとして使用します。もちろんサービスを停止するサンプルですのでこのサービスを使用していなくて、停止していればサンプルの実行が失敗します。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |