wonderhands
Programmer
I am using the below code to access extended information from a CDO person object.
The code works fine, until i reach a user in the everybody group who's name in active directory is spelt differently to the displayname in the AD (which maps to the ADSI property fullname.)
Is there another way of enumerating users using just LDAP? Can anyone help??
Dim objmember As ActiveDs.IADsUser
Dim objgroup As ActiveDs.IADsGroup
Dim objperson As New CDO.Person
Set objgroup = GetObject("WinNT://uk.rowecohen.com/Everybody"
For Each objmember In objgroup.Members
objperson.DataSource.Open "LDAP://uk.rowecohen.com/CN=" & objmember.FullName & ",OU=User_main,OU=Quay House,DC=UK,DC=ROWECOHEN,DC=COM"
The code works fine, until i reach a user in the everybody group who's name in active directory is spelt differently to the displayname in the AD (which maps to the ADSI property fullname.)
Is there another way of enumerating users using just LDAP? Can anyone help??
Dim objmember As ActiveDs.IADsUser
Dim objgroup As ActiveDs.IADsGroup
Dim objperson As New CDO.Person
Set objgroup = GetObject("WinNT://uk.rowecohen.com/Everybody"
For Each objmember In objgroup.Members
objperson.DataSource.Open "LDAP://uk.rowecohen.com/CN=" & objmember.FullName & ",OU=User_main,OU=Quay House,DC=UK,DC=ROWECOHEN,DC=COM"
