使用从wmi查询vb.net获得的新字段更新字典中的值

Question

编辑

我仍然无法为进程分配与其关联的会话id的用户名。

这是我用来检索用户详细信息的代码：

    Public Sub GetUsers()
    Using server As ITerminalServer = manager.GetRemoteServer(strHostName)
        server.Open()
        For Each session As ITerminalServicesSession In server.GetSessions()
            If Not String.IsNullOrEmpty(session.UserName) Then
                dictuser.Add(session.SessionId, New User(session.SessionId, session.UserName))
            End If
        Next
    End Using
End Sub

我的用户类被简单地定义为：

Public Class User
Private _SessionID As Integer
Private _UserName As String
Sub New(ByVal SessionID As Integer, ByVal UserName As String)
    _SessionID = SessionID
    _UserName = UserName
End Sub
Public ReadOnly Property SessionID As String
    Get
        Return _SessionID
    End Get
End Property
Public ReadOnly Property UserName As String
    Get
        Return _UserName
    End Get
End Property
End Class

我在进程类中创建了一个函数：

Public Sub AddUserInfo(ByVal UserName As String)
    _UserName = UserName
End Sub

Answer 1

如果在字典中找到具有相同id的进程，则会替换该进程，否则会自动添加新进程。

dictProcess(process.ProcessId) = process

---

编辑（回答您编辑的问题）：

我会将Processes类的名称更改为Process，因为它不是一个集合，而是应该表示一个进程。您可以将Process类的构造函数更改为

Public Sub New(ByVal ProcessId As Integer, ByVal ProcessName As String, ByVal SessionId As Integer)            
    _ProcessId = ProcessId            
    _ProcessName = ProcessName            
    _SessionId = SessionId            
End Sub

然后添加一个方法

Public Sub AddWmiInfo (ByVal PageFileUsage As Integer, ByVal WorkingSetSize As Integer)
    _PageFileUsage = PageFileUsage            
    _WorkingSetSize = WorkingSetSize            
End Sub

或者，您也可以使这些属性读/写，但是您可以得到这样更好的封装。

使用Cassia将基本流程信息添加到字典中。注意，ProcessId被声明为Integer，因此校验Not String.IsNullOrEmpty(process.ProcessId)没有意义。

For Each process As ITerminalServicesProcess In server.GetProcesses()                       
    dictprocess.Add( _
      process.ProcessId, _
      New Process(process.ProcessId, process.ProcessName, process.SessionId))                       
Next

最后，您可以添加WMI中的信息，如以下

Dim p As Process = Nothing
For Each wmiProcess In prowmi
    If dictprocess.TryGetValue(wmiProcess.ProcessID, p) Then
        p.AddWmiInfo(wmiProcess.PageFileUsage, wmiProcess.WorkingSetSize)
    End If
Next

CCD_ 7返回变量CCD_。TryGetValue的第二个参数是ByRef参数。

---

EDIt#2：

你的循环应该读

Dim p As Process = Nothing
For Each user As User In dictuser.Values
    If dictprocess.TryGetValue(user.SessionID, p) Then
        p.AddUserInfo(user.UserName)
    End If
Next

但是，如果您从未通过密钥（会话id）访问用户字典，那么列表将比字典更合适。