Group Users List (1 Viewer)
- Thread starter KenHigg
- Start date
Assuming this is for active directory you can use something along the lines of
Where strgrpDN is the distinguished name of the group in question.
The DN should be in the format CN=Groupname,OU=Groups,DC=myDomain,DC=com
I believe, off top of my head that objmember.class will tell you whether the member is a user or another group.
if you wanted to query a specific (non domain controller) server for local group information you can use a similar format:
You should also be able to use the machine name in place of the IP address
Code:
set objGroup = GetObject("LDAP://" & strgrpDN)
For each objmember in objgroup.members
debug.print objmember.name
nextWhere strgrpDN is the distinguished name of the group in question.
The DN should be in the format CN=Groupname,OU=Groups,DC=myDomain,DC=com
I believe, off top of my head that objmember.class will tell you whether the member is a user or another group.
if you wanted to query a specific (non domain controller) server for local group information you can use a similar format:
Code:
set objGroup = GetObject("WinNT://192.168.0.1/Administrators")
Last edited:
If this sort of thing is likely to land on your lap regularly, can I recommend the Active Directory Cook book from o'reilly.
Feel free to drop me a PM as I do a lot of gubbins around AD, groups and users, I don't get the time to drop by as much as I used to but I should receive a mail altert and I've a lot of VBA/S already set up to pull this sort of stuff.
Feel free to drop me a PM as I do a lot of gubbins around AD, groups and users, I don't get the time to drop by as much as I used to but I should receive a mail altert and I've a lot of VBA/S already set up to pull this sort of stuff.
KenHigg
Registered User
- Local time
- Today, 10:30
- Joined
- Jun 9, 2004
- Messages
- 13,327
So I tried the following code and got an error:
Code:
Dim strgrpDN As String
Dim objgroup As Object
Dim objmember As Property
strgrpDN = "CN=TOC_TURNOVER,OU=Groups,DC=Delta,DC=com"
Set objgroup = GetObject("LDAP://" & strgrpDN)
For Each objmember In objgroup.members
Debug.Print objmember.Name
NextI get a type mismatch entering the For loop using your code, if I redeclare Objmember as an object it works fine here.
That's normally permissions in my experience.
I believe that by default an authenticated user of the Domain should normally be able to Read group membership information from the domain but this can be altered to improve security.
I believe that by default an authenticated user of the Domain should normally be able to Read group membership information from the domain but this can be altered to improve security.
