Enumerating Group Members ( avec AD, il existe la même chose pour des groupes sur une machine hors domaine )
 
 
 
Description
 
Retrieves the memberOf and primaryGroupID attributes of a user account to display group membership. Note that the primaryGroupID attribute contains an integer that maps to the name of the primary group. The memberOf attribute does not contain the name of the primary group of which the user is a member.
 
 
 
Supported Platforms
 
Windows Server 2003
 Yes
 
Windows XP
 Yes
 
Windows 2000
 Yes
 
Windows NT 4.0
 Yes, with Active Directory Client Extensions installed
 
Windows 98
 Yes, with Active Directory Client Extensions installed
 
 
 
 
Script Code  
 
On Error Resume Next
Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D
Set objOU = GetObject _
    ("LDAP://cn=Users,dc=NA,dc=fabrikam,dc=com" )
   
ObjOU.Filter= Array("user" )
 
For Each objUser in objOU
    WScript.Echo objUser.cn & " is a member of: "  
    WScript.Echo vbTab & "Primary Group ID: " & objUser.Get("primaryGroupID" )
   
    arrMemberOf = objUser.GetEx("memberOf" )
   
    If Err.Number <>  E_ADS_PROPERTY_NOT_FOUND Then
        For Each Group in arrMemberOf
        WScript.Echo vbTab & Group
        Next
    Else
        WScript.Echo vbTab & "memberOf attribute is not set"
        Err.Clear
      End If
    Wscript.Echo VbCrLf
Next