Populate ComboBox from AD Query

[Primera]

I'm trying to populate a ComboBox on Form.load with a list of the OU's pulled
from AD. Here is the code that does not work:

Dim rootdir As New System.Director yServices.Direc toryEntry _
("LDAP://dc=corp,dc=abc, dc=com")
Dim rootsearch As New
System.Director yServices.Direc torySearcher(ro otdir)
Dim result As System.Director yServices.Searc hResult
rootsearch.Sear chScope = DirectoryServic es.SearchScope. Subtree
rootsearch.Filt er = ("(objectCla ss = organizational Unit)")
For Each result In rootsearch.Find All()
ComboBox2.Items .Add(result.Get DirectoryEntry)
Next

Any help would be greatly appreciated.... .

Thanks

[Siva M]

Did you try with objectClass=org anizationalUnit (no space between
organizational and Unit)?

"Primera" <Pr*****@discus sions.microsoft .com> wrote in message
news:8D******** *************** ***********@mic rosoft.com...
I'm trying to populate a ComboBox on Form.load with a list of the OU's
pulled
from AD. Here is the code that does not work:

Dim rootdir As New System.Director yServices.Direc toryEntry _
("LDAP://dc=corp,dc=abc, dc=com")
Dim rootsearch As New
System.Director yServices.Direc torySearcher(ro otdir)
Dim result As System.Director yServices.Searc hResult
rootsearch.Sear chScope = DirectoryServic es.SearchScope. Subtree
rootsearch.Filt er = ("(objectCla ss = organizational Unit)")
For Each result In rootsearch.Find All()
ComboBox2.Items .Add(result.Get DirectoryEntry)
Next

Any help would be greatly appreciated.... .

Thanks