こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VB2008 サービスの状態取得

VB2008です。

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

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

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

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

投稿日時 - 2009-10-06 07:35:01

QNo.5345446

すぐに回答ほしいです

質問者が選んだベストアンサー

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

お礼

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

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

投稿日時 - 2009-10-06 14:23:23

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

投稿日時 - 2009-10-06 09:13:51

あなたにオススメの質問