Question Retrieving Data from Active Directory

[maydhyam]

Hi All,

I am trying to retrieve the telephone number from Active Directory for my script, I found alot of examples online, and I tried to implement what I think should make sense (but since I really don't know vb.net that well, this is problematic). Below is the piece of code:

1. .
   
2. .
   
3. .
   
4. ''''Get Phone Number from Active Directory using employee ID retrieved from the logged in user
   
5. 
   
6. Dim dirEntry, de As DirectoryEntry
   
7. Dim dirSearcher As DirectorySearcher
   
8. Dim sr As SearchResult
   
9. 
   
10. dirEntry = New System.DirectoryServices.DirectoryEntry("LDAP://company.com")
    
11. dirSearcher = New System.DirectoryServices.DirectorySearcher(dirEntry)
    
12. dirSearcher.Filter = "(employeeID = " & Me.fp.BadgeNo & ")"
    
13. 
    
14. 'The PropertiesToLoad.Add method will be useful when retrieving only the selected properties.
    
15. dirSearcher.PropertiesToLoad.Add("telephoneNumber")
    
16. 'Users Phone
    
17. 
    
18. sr = dirSearcher.FindOne()
    
19. 
    
20. If sr Is Nothing Then 'return false if user isn't found
    
21. Me.tb_phone.Text = "N/A"
    
22. End If
    
23. 
    
24. 'Retrieve the user's Phone Number and assigns them to text boxes
    
25. de = sr.GetDirectoryEntry()
    
26. 
    
27. If Not de.Properties("telephoneNumber").Value Is Nothing Then
    
28. Me.tb_phone.Text = de.Properties("telephoneNumber").Value.ToString()
    
29. End If
    
30. .
    
31. .
    
32. .
    
    

After running the script, I am getting the following error: "An operations error occurred" and the error always points to: "sr = dirSearcher.FindOne()"

In need os any assistance and or guidance...Please help

maydhyam

 

[Estuardo]

Hello,
I don't know if you will ever read this, but for other readers, i guess that the problem starts in your Entry object, you should explicitly say where to start to look for. Something like this:

"LDAP://[b]CN=Users[/b],DC=domain,DC=com", dbnull, dbnull, AuthenticationTypes.Secure )

I don't know what OS you have but in 2k3 and 2k8 i couldn't find the "employeeID" attribute.
Also, the first condition no matter what sr is will go on and may break in the next line.