Evaluate group 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

use Win32::OLE;

$objGroup = Win32::OLE->GetObject('LDAP://cn=Managers,ou=Sales,dc=mycorp,dc=com');
if ($objGroup->IsMember('LDAP://cn=Vicky Launders,ou=Sales,' . 'dc=mycorp,dc=com')) {
    print "Is a Member!\n";
}
else {
    print "Is NOT a Member!\n";
}

This code has been viewed 1170 times.

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