ＶＢ2008 サービスの状態取得

VB2008です。

管理 → サービスとアプリケーション → サービスに表示されている
全サービスの名前・稼働状況・スタートアップの種類を取得することは可能でしょうか？

また、LAN内の他のコンピュータに対しても同様の情報を取得したいと考えております。

実現できれば、GetServicesメソッド・WMI等、特にこだわりはありません。

よろしくお願い致します。

No.1 回答者： AKARI0418 回答日時： 2009/10/06 09:13

Dim scope As ManagementScope = New ManagementScope("\\129.0.0.1\ROOT\CIMV2")

'IPアドレスを変更ることで対象のコンピュータの情報を取得できます。
scope.Connect()

Dim mosQuery As New ManagementObjectSearcher("SELECT * FROM Win32_Service")

Dim mocCollection As ManagementObjectCollection = mosQuery.Get
For Each mo As ManagementObject In mocCollection
With mo
Console.WriteLine(.Properties("Caption").Value & ":" & _
.Properties("State").Value & ":" & _
.Properties("StartMode").Value _
)
End With
Next

No.2 ベストアンサー 回答者： AKARI0418 回答日時： 2009/10/06 09:17

失礼しました、間違いがありました。

Dim scope As ManagementScope = New ManagementScope("\\129.0.0.1\ROOT\CIMV2")
'IPアドレスを変更ることで対象のコンピュータの情報を取得できます。
scope.Connect()

Dim mosQuery As New ObjectQuery("SELECT * FROM Win32_Service")
Dim searcher As New ManagementObjectSearcher(scope, mosQuery)

Dim mocCollection As ManagementObjectCollection = searcher.Get
For Each mo As ManagementObject In mocCollection
With mo
Console.WriteLine(.Properties("Caption").Value & ":" & _
.Properties("State").Value & ":" & _
.Properties("StartMode").Value _
)
End With
Next

この回答へのお礼

ありがとうございます！！
おかげ様で希望していた機能が実装できました。

本当にありがとうございました！

お礼日時：2009/10/06 14:23