Active Directory error when creating program to list computers in Active Directory

Question

0.00/5 (No votes)

See more:

I am writing a program to list computers to my listview in Active Directory in Visual Basic. After the form loads I receive the error message that states "DirectoryServicesCOMException - An operations error occured" The line of code this happens on is
For Each dirSearchResults In dirSearcher.FindAll()

Any help is appreciated.

VB

Dim dirEntry1 As DirectoryEntry = New DirectoryEntry("LDAP://DC01/CN=Computers/DC=TEST/DC=COM")
        Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry1)
        dirSearcher.Filter = ("(objectCategory=Computer)")
        Dim dirSearchResults As SearchResult
        ' 3. Loop through all the computer names returned
        For Each dirSearchResults In dirSearcher.FindAll()
            ListView1.Items.Add(dirSearchResults.GetDirectoryEntry().Name.ToString)
        Next
    End Sub

Posted 10-Feb-11 3:29am

tupacIT

Add a Solution

2 solutions

Solution 2

Do you have permission to access AD? You can specify username password of administrator in DirectoryEntry constructor. Post errorcode, extendederror; so that others can help you in right direction.

Posted 10-Feb-11 3:42am

Prerak Patel

Comments

tupacIT 10-Feb-11 9:45am

Thanks I have permissions but I did not specify permissions in my DirectoryEntry constructor I will try to lookup the proper DirectoryEntry constructor and see if that works. Thanks

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Manas Bhardwaj · Accepted Answer · 2011-02-10T03:41:00

Solution 1

That's because the current user running this code is either not a domain user or does not have permission to look up AD.
To solve this issue, either run this code as a domain user or specify explicitly credentials
in your DirectoryEntry constructor.

Posted 10-Feb-11 3:41am

Manas Bhardwaj

Comments

tupacIT 10-Feb-11 10:37am

Thanks I have created my DirectoyEntry constructor below does this look right if so I am still getting the error


  Public Shared Function GetDirectoryEntry() As DirectoryEntry
        Dim dirEntry As DirectoryEntry = New DirectoryEntry
        dirEntry.Path = "LDAP://Test/CN=Computers/DC=COM"
        dirEntry.Username = "TEST\user"
        dirEntry.Password = "password"
        Return dirEntry
    End Function

Active Directory error when creating program to list computers in Active Directory

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Active Directory error when creating program to list computers in Active Directory

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us