Hi all, 
as part of a security audit to see who has send permissions to Exchange
2003 dist. lists, I am trying to enumerate universal groups.
My methodology is as follows:-
Enumerate values in ADSI attribute dLMemSubmitPerms
For each element in this list, enumerate the members of the nested
group. This works for Universal security list members, but not for
nested universal distribution lists.
 
A snippet of my code is below:-
 
  my @dLMemSubmitPerms= $entry->get_value('dLMemSubmitPerms');
  foreach my $line(@dLMemSubmitPerms)
  {
   my ($group) = (split /,/,$line);
    $group=~ s/CN=//ig;
    print "\n\nACL on \"$name\"\t: \"$group\"\t\n";
   if(Win32::NetAdmin::GroupGetMembers('$PDC', "$group", [EMAIL PROTECTED]))
   {
    print "Enumerating group listing for \"$group\"\n";
    foreach my $member(@array)
    {
     print "$member is in \"$group\"\n";
    }
   }

I may be missing a important step, bnut having stared at it for a while
nothing is jumping out at me...
 
Also, if anyone has a smart mechanism to enumerate members of nested
groups within nested groups (we have maybe 5 degrees of nesting on some
lists) that would be much appreciated.
 
Regards,
Conor Lillis
---------------------------------------
Senior Systems Administrator,
Group Network Services,
tel : +353-1-616-2540
 
Anglo Irish Bank
www.angloirishbank.ie <http://www.angloirishbank.ie/> 
---------------------------------------
 


**********************************************************************
 Private, Confidential and Privileged. This e-mail and any files and 
attachments transmitted with it are confidential and/or privileged. They are 
intended solely for the use of the intended recipient. The content of this 
e-mail and any file or attachment transmitted with it may have been changed or 
altered without the consent of the author. If you are not the intended 
recipient, please note that any review, dissemination, disclosure, alteration, 
printing, circulation or transmission of this e-mail and/or any file or 
attachment transmitted with it, is prohibited and may be unlawful. If you have 
received this e-mail or any file or attachment transmitted with it in error 
please notify Anglo Irish Bank Corporation Plc, Stephen Court, 18/21 St 
Stephen's Green, Dublin 2, Ireland, telephone no: +353-1-6162000. 
Directors: S P FitzPatrick (Chairman), D Drumm (Chief Executive), L Bradshaw, D 
O'Connor, A Heraty, M D Jacob, W A McAteer, G McGann, D Quilligan, N Sullivan, 
P Whelan, N Harwerth ( U.S.) 
 Registered Office: Stephen Court, 18/21 St Stephen's Green, Dublin 2 Ireland
 Registered in Ireland: No 22045
Anglo Irish Bank Corporation plc is regulated by the Financial Regulator. Anglo 
Irish Bank Corporation plc (trading as Anglo Irish Bank Private Banking) is 
regulated by the Financial Regulator. Anglo Irish Assurance Company Limited is 
regulated by the Financial Regulator. 
**********************************************************************

_______________________________________________
Perl-Win32-Admin mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to