Evaluate group user membership (Perl)

This code can be found in Chapter 23 of Active Directory, 3rd Edition

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# From the book "Active Directory, Third Edition" 
# ISBN: 0-596-10173-2

$objMembers = $objGroup->Members;
$objMembers->{Filter} = ['User'];
foreach my $objMember (@{$objMembers}) {
    print $objMember->Name, "\n";
}

This code has been viewed 1060 times.

New from the creators of TechTasks.com: StatSheet.com