Add user to DNS Admins (Perl)

This code can be found in Chapter 12 of Windows Server 2003 Security Cookbook

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.

use Win32::OLE;

use constant ADS_PROPERTY_APPEND => 3;
$objGroup = Win32::OLE->GetObject('LDAP://cn=DNSAdmins,cn=Users,dc=test,dc=local,dc=com');
$objGroup->PutEx(ADS_PROPERTY_APPEND, 'member', ['cn=Bob Smith,cn=Users,dc=test,dc=local,dc=com']);
$objGroup->SetInfo();
print "User added to DNS Admins group\n";

This code has been viewed 731 times.

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