WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

ADSI
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

dsGetMemGrp Sample

 Keywords: dsGetMemGrp Group Member 

ServerDn=dsGetProperty("LDAP://rootDSE", "serverName")
ServerName=ItemExtract(1, ServerDn, ",")
ServerName=ItemExtract(2, ServerName, "=")
ServerDn=dsGetProperty("LDAP://rootDSE", "defaultNamingContext")
ServerPath="LDAP://" : ServerName : "/" : ServerDN

;groups_in_OU = dsFindPath(ServerPath, "(&(objectCategory=group) (groupType=%GlobalDistributionGroup%))")
;sGroupPath = AskItemlist('GlobalDistributionGroup in OU: ':ServerPath, groups_in_OU, @TAB, @UNSORTED, @SINGLE )

;groups_in_OU = dsFindPath(ServerPath, "(&(objectCategory=group) (groupType=%LocalDistributionGroup%))")
;sGroupPath = AskItemlist('LocalDistributionGroup in OU: ':ServerPath, groups_in_OU, @TAB, @UNSORTED, @SINGLE )

aMembers = ArrDimension(10000, 2)
groups_in_OU = dsFindPath(ServerPath, "(&(objectCategory=group) (groupType=%UniversalDistributionGroup%))")

element = 0
For a = 1 To ItemCount( groups_in_OU, @TAB )
   sGroupPath = ItemExtract( a, groups_in_OU, @TAB )
   AskItemlist('Group in OU: ':ServerPath, groups_in_OU, @TAB, @UNSORTED, @SINGLE )
   sMembers = dsGetMemGrp(sGroupPath)
   AskItemlist('Members of ':sGroupPath, sMembers, @TAB, @UNSORTED, @SINGLE )
   For b = 1 To ItemCount( sMembers, @TAB )
      sMemberPath = ItemExtract( a, sMembers, @TAB )
      aMembers[element,0] = sGroupPath
      aMembers[element,1] = sMemberPath
      element = element + 1
   Next
Next

ArrayFilePutCSV('c:\temp\Members.csv', aMembers )
Run( 'c:\temp\Members.csv', '' )
Exit

Article ID:   W17526
Filename:   dsGetMemGrp Sample.txt
File Created: 2013:01:10:15:07:28
Last Updated: 2013:01:10:15:07:28