Pull Active Directory Group Information into Excel

**jam92102** · 03-31-2010, 06:34 AM

Originally Posted by romperstomper

So are those your user ids for logging into the network?

Correct. Those are user login id's.

**romperstomper** · 03-31-2010, 06:40 AM

See if this function works for you:

Function GetGroupUsers(strGroupName As String) As String

    Dim objGroup, objDomain, objMember
    Dim strMemberList As String, strDomain As String
    
    Set objDomain = GetObject("LDAP://rootDse")
    strDomain = objDomain.Get("dnsHostName")
    
    Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroupName & ",group")
    
    For Each objMember In objGroup.Members
        strMemberList = strMemberList & objMember.Name & vbCrLf
    Next objMember
    
    GetGroupUsers = strMemberList

End Function

**jam92102** · 03-31-2010, 07:19 AM

Originally Posted by romperstomper

See if this function works for you:

Function GetGroupUsers(strGroupName As String) As String

    Dim objGroup, objDomain, objMember
    Dim strMemberList As String, strDomain As String
    
    Set objDomain = GetObject("LDAP://rootDse")
    strDomain = objDomain.Get("dnsHostName")
    
    Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroupName & ",group")
    
    For Each objMember In objGroup.Members
        strMemberList = strMemberList & objMember.Name & vbCrLf
    Next objMember
    
    GetGroupUsers = strMemberList

End Function

Ok, I thought I knew what I was doing but I don't. How do I get this code into the worksheet? I tried pasting it once I clicked on the visual basic link but could never get it to work. I appreciate all the help!!