ADSystemInfo

[Senad Isanovic]

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

 

[Shauna Kelly]

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