Он, наверно, засовывает в массив пользователей в том виде, котором получил ("CN=Вася Пупкин,CN=Users,DC=xxx,DC=ru") ;o)
Можно перебирать обьекты пользователей, у которых можно взять нужные аттрибуты и вставлять их
Есть примеры. В первом варианте выводится в формате CN=Вася Пупкин,CN=Users,DC=xxx,DC=ru, во втором не названия пользователей, как выводится, а объекты пользователей.
1.
Sub test1()
Cells.Select
Range("A1").Activate
Selection.ClearContents
Set objGroup = GetObject _
("LDAP://cn=Internet Mail,cn=Users,dc=xxx,dc=ru")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")
Row = 1
For Each strMember In arrMemberOf
Cells(Row, 1).Value = strMember
Row = Row + 1
Next
End Sub
2.
Sub test1()
Cells.Select
Range("A1").Activate
Selection.ClearContents
Set objGroup = GetObject("LDAP://cn=Internet Mail,ou=Users,dc=xxx,dc=ru")
objGroup.GetInfo
Row = 1
For Each objUser In objGroup.Members
Cells(Row, 1).Value = objUser.cn
Cells(Row, 2).Value = objUser.Name
Row = Row + 1
Next
End Sub
