Get the names of all the members in an active directory group – in VBA
Returns the list of names semicolon deliberated
Function getNamesADGroup(groupname As String) As String On Error Resume Next Dim ret As String Set Group = GetObject("WinNT://" & "corp" & "/" & groupname & ",group") For Each Member In Group.Members If Len(Member.FullName) Then _ ret = ret & Member.FullName & ";" Next On Error GoTo 0 If Len(ret) Then _ getNamesADGroup = Left(ret, Len(ret) - 1) End Function