Hello,
I have serious troubles scripting a mailbox creation in
exchange 2000: this is the snippet I'm using (over an already created user)
________________________________________
my $userObjCDO = CreateObject OLE 'CDO.Person'
or warn "Couldn't create new instance of the
CDO.Person Check your registry for CDO.Person key under classes!!";
&PrintError( 'CDO creating object CDO.Person');
$userObjCDO->DataSource->Open( "LDAP://"; . $strServer .
"/CN=" . $strUserLast . " " . $strUserFirst . ",CN=Users,".$strDomain);
&PrintError( 'opening CDO.Person from AD');
my $mdbStore = $userObjCDO->GetInterface( "IMailboxStore");
&PrintError( 'getting IMailboxStore interface from CDO.Person');
$mdbStore->CreateMailbox( "LDAP://"; . $strServer . "/CN=" .
$strExchIS . ",CN=" . $strExchSG . ",CN=InformationStore,CN=" .
$strExchServer . ",CN=Servers,CN=" . $strExchAG . ",CN=Administrative
Groups,CN=" . $strExchOrg . ",CN=Microsoft
Exchange,CN=Services,CN=Configuration," . $strDomain);
&PrintError( 'creating Exchange mailbox');
__________________________________________________________________
gives me : OLE Error for getting IMailboxStore interface from CDO.Person: No
such interface supported
I also registered ADsSecurity.dll from adsi sdk.... no result,
I have admin priviledges both on DC and exchange server and manage to create
users, contacts,etc.
The trouble is just with exchange tasks
Same problem with mailenabling contacts with MailEnable method.
Could anybody suggest any idea?
thanks
AB
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
