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

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

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