Aggiorna i valori in un dizionario con nuovi campi ottenuti da una query WMI VB.NET

Question

MODIFICARE

Non riesco ancora a assegnare il processo il nome utente dell'ID di sessione ad esso associato.

Questo è il codice che utilizzo per recuperare i dettagli dell'utente:

    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

La mia classe utente è definita semplicemente come:

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

Ho creato una funzione nella mia classe di processo:

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