Visual Basic

Public Shared Function GetUsers() As List(Of Users)
 
    Dim UserList As New List(Of Users)
 
    Try
        ' WhereDomain=""BLABLA"""
        Using searcher = New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_LogonSession WHERE LogOnType = 2")
 
            For Each queryObj As ManagementObject In searcher.Get()
 
                Dim qry As String = "Associators of " _
                                 & "{Win32_LogonSession.LogonId=" & queryObj.GetPropertyValue("LogonId") & "} " _
                                 & "Where AssocClass=Win32_LoggedOnUser Role=Dependent"
 
                Using iSearch = New ManagementObjectSearcher(qry)
 
                    For Each res As ManagementObject In iSearch.Get()
 
                        Dim ret As New Users(res.GetPropertyValue("Name"), _
                                         "", "")
 
                        UserList.Add(ret)
                    Next
 

                End Using
            Next
        End Using
 
        Return UserList
 
    Catch err As ManagementException
 
        MessageBox.Show(err.Message)
        Return UserList
 
    End Try
 
End Function