VBで、サービスの状態（開始、停止）をチェックする方法ってありますか？
WMI（Windows Management Instrumentation）というサービスの状態をチェックしたいのです。
わかる方いましたら、ご教授くださいませ。
お願いしますm(__)m

> VBで、サービスの状態（開始、停止）をチェックする方法ってありますか？
> WMI（Windows Management Instrumentation）というサービスの状態をチェックしたいのです。

とりあえず、
  '[Windows Management Instrumentation]サービスの起動チェック
  With CreateObject("Shell.Application")
    If .IsServiceRunning("winmgmt") Then
      Label1.Caption = "サービスは起動されています。"
    Else
      Label1.Caption = "起動されていません。"
    End If
    If .CanStartStopService("winmgmt") Then
      Label2.Caption = "状態を変更できます。"
    Else
      Label2.Caption = "状態を変更できません。"
    End If
  End With
とか。

> > VBで、サービスの状態（開始、停止）をチェックする方法ってありますか？
> > WMI（Windows Management Instrumentation）というサービスの状態をチェックしたいのです。
>
> とりあえず、
>   '[Windows Management Instrumentation]サービスの起動チェック
>   With CreateObject("Shell.Application")
>     If .IsServiceRunning("winmgmt") Then
>       Label1.Caption = "サービスは起動されています。"
>     Else
>       Label1.Caption = "起動されていません。"
>     End If
>     If .CanStartStopService("winmgmt") Then
>       Label2.Caption = "状態を変更できます。"
>     Else
>       Label2.Caption = "状態を変更できません。"
>     End If
>   End With
> とか。

ありがとうございますm(__)m
APIを使うのかと思っていましたが、使わなくてもできるんですねo(^-^)o

魔界の仮面弁士さんに教えてもらったコードで、開始か停止かを調べることはできました。
ですが、それではやりたいことはできなかったのです(￣□￣;)!!
WMIサービスのスタートアップの種類が自動か手動の時は、サービスが停止中であっても、下記コードを実行
すると勝手に開始状態になってしまうのです。
下記コードを実行する前にサービスのチェックをするので、開始できるのか出来ないのかを判別しなければなりません。
スタートアップの種類を調べることが出来れば確実なのですが・・・
スタートアップの種類を調べる方法はありますでしょうか？

コードは↓

prcCnt = 0
strsql = "SELECT * FROM win32_process WHERE name='" & ProcessName & "'"
For Each oProc In GetObject( _
    "winmgmts:{impersonationLevel=impersonate}") _
    .ExecQuery(strsql)
  If ProcessName = oProc.Name Then
    prcCnt = prcCnt + 1
  End If
Next

If prcCnt > 0 Then
  CHECK_PROCESS = True
Else
  CHECK_PROCESS = False
End If

環境ですが、
Win2000 Pro
VB6.0　SP6
です。