×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

VBScript FAQ

Domain Admin

Users and Group Membership by mrmovie
Posted: 15 Apr 04

'one way of doing it
'this will work with Active Dir and NT domains

Set Container = GetObject("WinNT://DomainNameHere")
Container.Filter = Array("user")
For Each User In Container
  For Each aGroup In User.Groups
    Wscript.Echo User.Name & "=" & aGroup.Name
  Next
Next

'if you want other user properties then
Set Container = GetObject("WinNT://DOMFSC01")
Container.Filter = Array("user")
For Each User In Container
   Wscript.Echo User.Name & "=" & User.LastLogin
Next

'the WinNT provider does not expose all of the AD properties,only the ones which were available in NT domains, if you want to do that then use ADSI and an LDAP query to return more fields/properties

Back to VBScript FAQ Index
Back to VBScript Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close