So.. that email address is not Exchange enabled at this point. You
just set the email address property. This makes the group Exchange
mail-enabled, and you can now send email to that group, and providing it
has memebers that are mail or mailbox enabled, they will get the mail.
use Win32::OLE;
$GLOBALGROUP = 2;
$DOMAINLOCALGROUP = 4;
$UNIVERSALGROUP = 8;
$SECURITYGROUP = 2147483648;
$ADS_PROPERTY_APPEND = 3;
$ou=Win32::OLE->GetObject("LDAP://OU=Test,DC=somedomain,DC=com");
$group=$ou->Create("Group","cn=GroupCA");
$group->Put("samAccountName","GroupCA");
$group->Put("groupType",($UNIVERSALGROUP | $SECURITYGROUP));
$group->SetInfo;
if (Win32::OLE->LastError() != 0) {
print "Error in 1st SetInfo: " . Win32::OLE->LastError()."\n";
}
$group->MailEnable;
if (Win32::OLE->LastError() != 0) {
print "Error in MailEnable: " . Win32::OLE->LastError()."\n";
}
$group->Put("proxyAddresses", "SMTP:[email protected]");
$group->Put("mail","[email protected]");
$group->SetInfo();
if (Win32::OLE->LastError() != 0) {
print "Error in 2nd SetInfo: " . Win32::OLE->LastError()."\n";
}
$group->PutEx($ADS_PROPERTY_APPEND,
"member",
['CN=some user,OU=some ou,DC=somedomain,DC=com']);
$group->SetInfo;
if (Win32::OLE->LastError() != 0) {
print "Error in 3rd SetInfo: " . Win32::OLE->LastError()."\n";
}
Steven
________________________________
From: [email protected]
[mailto:[email protected]] On Behalf Of
A F
Sent: Thursday, November 18, 2010 3:56 PM
To: [email protected]
Subject: Problem creatign group with email address using
Win32::OLE
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 <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
