Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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