Active Directory Query to Listview

[Asprisa]

Hi All,

Something weried happening when i try and return 4 AD properties to a listview box, here is my code:

        
Dim li As ListViewItem

Dim dirEntry As DirectoryEntry = New DirectoryEntry("LDAP://172.16.0.3/OU=Staff,OU=Users,OU=Accounts,OU=Network,DC=X,DC=local")

dirEntry.Username = "x"
dirEntry.Password = "x"

Dim search As DirectorySearcher = New DirectorySearcher(dirEntry)
search.Filter = "(&(objectClass=User)(objectCategory=person))"

Dim res As SearchResultCollection = search.FindAll()

For Each ItemRes As SearchResult In res

li = Me.ListView1.Items.Add(ItemRes.Properties("displayname")(0).ToString())
li.SubItems.Add(ItemRes.Properties("department")(0).ToString())
li.SubItems.Add(ItemRes.Properties("homePhone")(0).ToString())
li.SubItems.Add(ItemRes.Properties("mail")(0).ToString())

Next

Basically, if i only return the displayname, all the results come back, if i ask for the displayname and the mail as a subitem only 10 items come back, If i ask for department or homePhone to come back only 1 displayname is returned.

If i return the items to messageboxes they return fine.

Have i coded the subitems right on the listview?

Thanks,

James.

[Asprisa]

I managed to fix my own problem, the issue was if the property was empty it caused the rest of the query to go a bit loopy, so get around it i used this:

li = Me.ListView1.Items.Add(ItemRes.Properties("samaccountname")(0).ToString())

If ItemRes.Properties.Contains("department") Then

li.SubItems.Add(ItemRes.Properties("department")(0).ToString())

Else

li.SubItems.Add("Not in database")

End If

If ItemRes.Properties.Contains("homePhone") Then

li.SubItems.Add(ItemRes.Properties("homePhone")(0).ToString())

Else

li.SubItems.Add("Not in database")

End If

If ItemRes.Properties.Contains("mail") Then

li.SubItems.Add(ItemRes.Properties("mail")(0).ToString())

Else

li.SubItems.Add("Not in database")

End If