Получить информацию о пользователях из Active Directory

Dim directoryEntry As DirectoryEntry = New DirectoryEntry(("WinNT:// имя домена"))
        Dim userNames As String = "<strong class="
        For Each child As DirectoryEntry In directoryEntry.Children
            If (child.SchemaClassName = "User") Then
                userNames = (userNames _
                            + (child.Name + Environment.NewLine))
            End If
 
        Next
        MessageBox.Show(userNames)

Private Function GetActiveDirUserDetails(ByVal userid As String) As String
        Dim dirEntry As System.DirectoryServices.DirectoryEntry
        Dim dirSearcher As System.DirectoryServices.DirectorySearcher
        Dim domainName As String = System.Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties().DomainName
        Try
            dirEntry = New System.DirectoryServices.DirectoryEntry("LDAP://" & domainName)
            dirSearcher = New System.DirectoryServices.DirectorySearcher(dirEntry)
            dirSearcher.Filter = "(samAccountName=" & userid & ")"
 
            dirSearcher.PropertiesToLoad.Add("GivenName")
            'Users e-mail address
            dirSearcher.PropertiesToLoad.Add("sn")
            'Users last name
            Dim sr As SearchResult = dirSearcher.FindOne()
            If sr Is Nothing Then 'return false if user isn't found 
                Return False
            End If
            Dim de As System.DirectoryServices.DirectoryEntry = sr.GetDirectoryEntry()
            Dim userFirstLastName = de.Properties("sn").Value.ToString() + ", " + de.Properties("GivenName").Value.ToString()
            Return userFirstLastName
        Catch ex As Exception ' return false if exception occurs 
            Return ex.Message
        End Try
    End Function

       If GetActiveDirUserDetails("WORK") IsNot Nothing Then
            Dim Splitted() As String = Split(GetActiveDirUserDetails("WORK"), ", ")
            ListView1.Items.Add(Splitted(0)).SubItems.Add(Splitted(1))
        End If

Imports System.DirectoryServices
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("Name", 150)
        ListView1.Columns.Add("Date", 130)
        ListView1.FullRowSelect = True
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dirs As DirectoryEntry = New DirectoryEntry(("WinNT://" + "ors.local"))
        For Each de As DirectoryEntry In dirs.Children
            If (de.SchemaClassName = "User") Then
                If (Not (de.Properties("lastlogin").Value) Is Nothing) Then
                    Dim item As ListViewItem = New ListViewItem({de.Name, de.Properties("lastlogin").Value.ToString})
                    ListView1.Items.Add(item)
                End If
            End If
        Next
 
    End Sub
End Class

  Dim item As ListViewItem = New ListViewItem({de.Name, de.Properties("sn").Value.ToString, de.Properties("personalTitle").Value.ToString})

Imports System.DirectoryServices
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("1", 150)
        ListView1.Columns.Add("2", 130)
        ListView1.Columns.Add("3", 180)
        ListView1.FullRowSelect = True
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dirs As DirectoryEntry = New DirectoryEntry(("WinNT://" + "ors.local"))
        For Each de As DirectoryEntry In dirs.Children
            If (de.SchemaClassName = "User") Then
                If (Not (de.Properties("lastlogin").Value) Is Nothing) Then
                    Dim item As ListViewItem = New ListViewItem({de.Name, de.Properties("sn").Value.ToString, de.Properties("personalTitle").Value.ToString})
                    ListView1.Items.Add(item)
                End If
            End If
        Next
 
    End Sub

 Dim item As ListViewItem = New ListViewItem({de.Name, de.Properties("sn").Value.ToString, de.Properties("personalTitle").Value.ToString})

Imports System.Threading

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ListView1.Items.Clear()
        ProgressBar1.Value = 0
        Dim ADThread As New Thread(AddressOf GetADUsersInfo)
        ADThread.IsBackground = True
        ADThread.Start()
 
    End Sub

Sub GetADUsersInfo()
        Dim givenName As String = ""
        Dim initials As String = ""
        Dim sn As String = ""
        Dim canonicalName As String = ""
        Dim displayName As String = ""
        Dim sAMAccountName As String = ""
        Dim accountExpires As String = ""
        Dim department As String = ""
 
 
        Dim domainName As String = TextBox1.Text
        If domainName.Length < 1 Then
            MsgBox("Введите имя домена!")
            Exit Sub
        End If
 
        Dim domainEntry As DirectoryEntry = New DirectoryEntry("LDAP://" & domainName, "UserAdmin", "PassAdmin", AuthenticationTypes.ReadonlyServer)
 
 
        Dim DomainSearcher As DirectorySearcher = New DirectorySearcher(domainEntry)
        DomainSearcher.Filter = "(&(objectCategory=person)(objectClass=user))"
        DomainSearcher.SearchRoot = domainEntry
        DomainSearcher.SearchScope = SearchScope.Subtree
        Dim results1 As SearchResultCollection
        Try
            results1 = DomainSearcher.FindAll()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
 
        Dim CountUsers As Integer = results1.Count
 
        Invoke(CType(Sub()
                         ProgressBar1.Maximum = CountUsers
                     End Sub, MethodInvoker))
 
 
            Try
                givenName = results1(i).Properties("givenName")(0).ToString()
            Catch ex As Exception
                givenName = " "
            End Try
            Try
                initials = results1(i).Properties("initials")(0).ToString()
            Catch ex As Exception
                initials = " "
            End Try
            Try
                sn = results1(i).Properties("sn")(0).ToString()
            Catch ex As Exception
                sn = " "
            End Try
            Try
                canonicalName = results1(i).Properties("name")(0).ToString()
            Catch ex As Exception
                canonicalName = " "
            End Try
            Try
                displayName = results1(i).Properties("displayName")(0).ToString()
            Catch ex As Exception
                displayName = " "
            End Try
            Try
                sAMAccountName = results1(i).Properties("sAMAccountName")(0).ToString()
            Catch ex As Exception
                sAMAccountName = " "
            End Try
            Try
                accountExpires = results1(i).Properties("accountExpires")(0).ToString
                If accountExpires = "0" Then
                    accountExpires = "Never"
                Else
                    accountExpires = DateTime.FromFileTime(results1(i).Properties("accountExpires")(0).ToString)
                End If
 
            Catch ex As Exception
                accountExpires = " "
            End Try
            Try
                department = results1(i).Properties("department")(0).ToString()
            Catch ex As Exception
                department = " "
            End Try
            '
            Dim tagLs As String = ""
            Try
                Dim dirSearchResults As SearchResult = DomainSearcher.FindOne()
                Dim propCount As Integer = dirSearchResults.Properties("memberOf").Count
                For j As Integer = 0 To propCount - 1
                    tagLs &= Split(Split(results1(i).Properties("memberOf")(j).ToString(), "CN=", 2)(1), ",", 2)(0) & vbNewLine
                Next
 
            Catch ex As Exception
 
            End Try
 
            Dim k As Integer = i
            Invoke(CType(Sub()
 
                             ListView1.Items.Add(givenName).SubItems.AddRange(New String() _
                  {initials, sn, canonicalName, displayName, sAMAccountName, accountExpires, department})
 
                             ListView1.Items.Item(k).Tag = tagLs
                             ProgressBar1.Value += 1
                             Label1.Text = Math.Round((ProgressBar1.Value / ProgressBar1.Maximum) * 100, 0) & " %"
                         End Sub, MethodInvoker))
 
 
        Next i
 
 
    End Sub

 Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
        MsgBox(ListView1.SelectedItems.Item(0).Tag.ToString)
 
    End Sub