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

If ds.Tables("CustInfo").Rows.Count = 0 Then
            'If customer telephone number not found, inform user
            'and move focus to customer surname input box
            MsgBox("Number not found in database.")
            cmdSave.Enabled = True
            txtSurname.Focus()
            Exit Sub