Querying Active Directory

[ScotTFO]

Is there a way to use VBA to query my active directory to translate a user login to the name?

Thanks!

 

[Kenneth Hobson]

Not sure why the active directory is needed.

I use this to get a users name.

Sub t()
  MsgBox Environ("username")
End Sub

 

[DonkeyOte]

see this thread for getting full name rather than just NT username

http://www.mrexcel.com/forum/showthread.php?t=2252&highlight=LDAP

 

[ScotTFO]

Sorry I think I may not have explained the sitaution well enough.

I have a list of login names that are configured in our Active Directory server. I need to find a way to query the server with those login names and have it pull the full names out.

This script will not be run on all the users machines, only mine.

 

[Kenneth Hobson]

Are these filenames in a folder that you need? If so, I would use something like this to get the filenames into an array.

Function FindFiles(sRootFolder As String, sFiles As String) As Variant
     
    Dim fs As Object
    Dim strFilename As String
    Dim i As Long, LastRow As Long
    Dim a() As Variant
     
    Set fs = Application.FileSearch
    With fs
        .LookIn = sRootFolder
        .Filename = sFiles 'set your filename or extension with wilcards if needed.
        .SearchSubFolders = True
        LastRow = .FoundFiles.Count
        If .Execute() > 0 Then
            For i = 1 To LastRow
                strFilename = .FoundFiles(i)
                ReDim Preserve a(i - 1)
                a(i - 1) = strFilename
            Next i
        Else
            MsgBox "No files found", vbCritical
        End If
    End With
    
    FindFiles = a()
     
End Function

 

[DonkeyOte]

You should be able to tweak Grizlore's code such that it loops the call to GetUserName but parses a different username each time which would be based on your own list of usernames along the lines of:

Sub ....

Dim rng as Range
Set rng = Sheets("Sheet1").Range("A1:A10")

For Each cell in rng
Set objInfo = CreateObject("ADSystemInfo") 
strLDAP = cell.value
Set objInfo = Nothing 
strFullName = GetUserName(strLDAP)
cell.offset(0,1) = strFullName 'put name in cell next to username
Next cell

End Sub

With Grizlore's post containing the actual GetUserName function

Obviously this isn't my post but presumably this would work...