特定ユーザーのプロセス情報を取得するには

質問

こんにちは。
VB.NET 2003で、現在起動されている全プロセスから、
特定のユーザーが起動した
・プロセスＩＤ
・プロセス名称
の情報を取得する方法はありますでしょうか？
System.Diagnostics.Process.GetProcessesで、
プロセス情報が取得できるので、
その中から、特定のユーザーの情報だけを洗い出そうとしたのですが、
ユーザー名に当たるプロパティが見つけられませんでした。
Process クラスには、ユーザー名は持っていないのでしょうか？

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

回答No.1

KenKen_SP · ベストアンサー

こんにちは。KenKen_SP です。

.NET はほとんどわからないです。それで、VB6.0 ですが。
WMI を使えばこんな感じで簡単に列挙できます。

WMI ＋ .NET で WEB 検索すれば、サンプルも見つかると思います。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process", , 48)

On Error Resume Next
For Each objItem In colItems
　　Debug.Print "---------------------------------------------------"
　　Debug.Print "Caption: " & vbTab & objItem.Caption
　　Debug.Print "CSName: " & vbTab & objItem.CSName
　　Debug.Print "ProcessId: " & vbTab & objItem.ProcessId
Next

お礼

KenKen_SP さま
ありがとうございます！
VB.NETでは、以下のような感じでできました。
（しかし、あまり意味がわかっていないので、自信がないのですが）

Dim strComputer As String = "."
Dim scope As System.Management.ManagementScope = New System.Management.ManagementScope("\\" & strComputer & "\root\cimv2")

scope.Connect()

Dim query As System.Management.ObjectQuery = New System.Management.ObjectQuery("SELECT * FROM Win32_Process")

Dim searcher As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher(scope, query)
Dim colItems As System.Management.ManagementObjectCollection = searcher.Get
Dim UserInfo(0) As Object

For Each objItem As System.Management.ManagementObject In colItems
　Debug.WriteLine("---------------------------------------------------")
　Debug.WriteLine("ProcessId: " & vbTab & objItem("ProcessId").ToString)
　Debug.WriteLine("NAME: " & vbTab & objItem("Name").ToString)
　Debug.WriteLine("CSNAME: " & vbTab & objItem("CSName").ToString)

　objItem.InvokeMethod("GetOwner", UserInfo)
　Debug.WriteLine("ユーザ名: " & vbTab & CStr(UserInfo(0)))
Next

回答No.2

KenKen_SP

補足します。

プロセスのオーナーユーザーを取得するなら、#1 の For Each ループ内で
次のコードを書き足すと取得できます。あとは、これを使って条件分岐。

　　objItem.GetOwner User, Domain
　　Debug.Print Domain & "\" & User