Private Sub GetComputers()
        Dim entry As New DirectoryServices.DirectoryEntry("LDAP://domain," & _
          "OU=unit")
        Dim searcher As New DirectoryServices.DirectorySearcher(entry)
        searcher.Filter = "(objectCategory=Computer)"
        For Each result As DirectoryServices.SearchResult In searcher.FindAll
            Dim computer As DirectoryServices.DirectoryEntry = _
              result.GetDirectoryEntry
            Try
                lstComputers.Items.Add(computer.Properties( _
                  "DisplayName").Value.ToString)
            Catch ex As Exception
            End Try
        Next
    End Sub