Get User with Group membership in a file.

Wed, 19 May 2010 10:58:01 -0700 

I have to get all my ad users and their group membership to a file and I
have them in two CN's

 

On Error Resume Next

 

Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D

 

Set objOU = GetObject _

    ("LDAP://cn=Users,dc=imcu,dc=local")

  

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 

Next

 

I also have a Cn No ScreenSaver Personnel.  But when I put it into the
above I get 0.

 

"Please consider the environment before printing this email."

 

 


~ Finally, powerful endpoint security that ISN'T a resource hog! ~
~ <http://www.sunbeltsoftware.com/Business/VIPRE-Enterprise/>  ~

<<image001.gif>>

Reply via email to