Thanks Steven for your help in my code. Now I can create a group in AD but it
doesn't create an exchange email. After running the script and when I go to AD
I
can see the email is specified at the Email field but trying to send an email
to
it , I get a bouce back even though I have members in the group.
use strict;
use warnings;
use Win32::OLE;
my $GLOBALGROUP = 2;
my $DOMAINLOCALGROUP = 4;
my $UNIVERSALGROUP = 8;
my $SECURITYGROUP = 2147483648;
my $ADS_PROPERTY_APPEND = 3;
my $ou=Win32::OLE->GetObject(LDAP://OU=some ou,DC=somedomain,DC=com);
my $group=$ou->Create("Group","cn=GroupCA");
$group->put("samAccountName","GroupCA");
$group->put("groupType",($UNIVERSALGROUP | $SECURITYGROUP));
$group->put("mail","[email protected]");
$group->SetInfo;
$group->PutEx($ADS_PROPERTY_APPEND,
"member",
['CN=last\\, first,CN=Users,DCDC=somedomain,DC=com']);
$group->SetInfo;
if (Win32::OLE->LastError() != 0 )
{
print "Some Error: ". Win32::OLE->LastError() ."\n";
exit 0;
}
_______________________________________________
Perl-Win32-Admin mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
