Getting AD Details based on username

by

LDAP URIs require a distinguished name. Account names won’t work. If you want to get user objects based on the account name you need a “regular” LDAP query:

username = "SomeUserName"

Set rootDSE = GetObject("LDAP://RootDSE")
base  = "<LDAP://" & rootDSE.Get("defaultNamingContext") & ">"
'filter on user objects with the given account name
fltr  = "(&(objectClass=user)(objectCategory=Person)" & _
        "(sAMAccountName=" & username & "))"
'add other attributes according to your requirements
attr  = "distinguishedName,sAMAccountName"
scope = "subtree"

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Open "Active Directory Provider"

Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = base & ";" & fltr & ";" & attr & ";" & scope

Set rs = cmd.Execute
Do Until rs.EOF
  WScript.Echo rs.Fields("distinguishedName").Value
  rs.MoveNext
Loop
rs.Close

conn.Close

Since I got annoyed from having to write all that boilerplate code over and over again, I wrapped it in a class (ADQuery) some time ago.

More Related Contents:

  1. Is there a need to set Objects to Nothing
  2. VB6 pass by value and pass by reference
  3. VBA : save a file with UTF-8 without BOM
  4. VBScript – How to make program wait until process has finished?
  5. Determine real cause of ODBC failure (error 3146) with ms-access?
  6. VBScript to open a dialog to select a filepath
  7. Why Use Integer Instead of Long?
  8. How to error handle 1004 Error with WorksheetFunction.VLookup?
  9. How can Excel VBA open file using default application
  10. How to compare two entire rows in a sheet
  11. Run same excel macro on multiple excel files
  12. IsDate function returns unexpected results
  13. Saving a Excel File into .txt format without quotes
  14. VBA – Range to jpg picture
  15. vba listbox multicolumn add [duplicate]
  16. Fastest way to delete rows which cannot be grabbed with SpecialCells
  17. Difference in type between using and not using Set keyword
  18. Environ Function code samples for VBA
  19. What is the best way to access a serial port from VBA?
  20. How to copy a chart from Excel to PowerPoint?
  21. vba paste not working
  22. Continue For loop
  23. mac excel vba loop : from list & then export as pdf
  24. How to add an embedded image to an HTML message in Outlook 2010
  25. Speed up multiple replacement
  26. In Excel VBA, what is the way to check if the web page is fully loaded?
  27. Excel VBA: auto click and open file from website
  28. Where does Outlook store the VBA code files?
  29. VBA inheritance, analog of super
  30. Working with current open email

Leave a Comment