ADSystemInfo

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Senad Isanovic - 02 Mar 2007 15:15 GMT

Trying to find some info about how to displat all users (members) of a
certain AD group.. Found the code below that gets info about the user that
is logged on the machine but need some help about how to display all users.
(their username, firstname, lastname, title, phone and email) Thanks!

Dim oGroup As Object
Dim oAdSys As Object
Set oAdSys = CreateObject("ADSystemInfo")
Set oUser = GetObject("LDAP://" & oAdSys.username)
bInitialized = True

Reply to this Message

Shauna Kelly - 03 Mar 2007 11:08 GMT

Hi Senad

Have a look at this page
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true
in the section "Active Directory".

The code on that site is VB Script, so you'll have to translate it slightly
into VBA.

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

> Trying to find some info about how to displat all users (members) of a
> certain AD group.. Found the code below that gets info about the user that
[quoted text clipped - 7 lines]
> Set oUser = GetObject("LDAP://" & oAdSys.username)
> bInitialized = True

Reply to this Message