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

質問

VB2008です。

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

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

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

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

回答No.2

AKARI0418 · ベストアンサー

失礼しました、間違いがありました。
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

お礼

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

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

回答No.1

AKARI0418

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