Just in case anyone might like to see this.... took me a while to figure
it out (due to my lack of experience with vbscript and with Win32::OLE).
#####perl
use Win32::OLE;
$iMDB = Win32::OLE->CreateObject("CDOEXM.MailboxStoreDB");
$strMDBUrl =
"LDAP://umr-rst01.restore.umr.edu/cn=UMR6-SG1-DB1,CN=UMR-MAIL6-SG1,CN=In
formationStore,CN=UMR-RST01,CN=Servers,CN=Rolla,CN=Administrative
Groups,CN=University of Missouri,CN=Microsoft
Exchange,CN=Services,CN=Configuration,DC=restore,DC=umr,DC=edu";
$store = $iMDB->DataSource->Open ($strMDBUrl);
$iMDB->Mount; # This will mount the DB
# $iMDB->DisMount; # This will dismount the DB
'''''''''''vbscript
Dim iMDB
Set iMDB = CreateObject("CDOEXM.MailboxStoreDB")
strMDBUrl =
"LDAP://umr-rst01.restore.umr.edu/cn=UMR6-SG1-DB1,CN=UMR-MAIL6-SG1,CN=In
formationStore,CN=UMR-RST01,CN=Servers,CN=Rolla,CN=Administrative
Groups,CN=University of Missouri,CN=Microsoft
Exchange,CN=Services,CN=Configuration,DC=restore,DC=umr,DC=edu"
' Bind to the mailbox store.
iMDB.DataSource.Open strMDBUrl
' Mount the mailbox store.
iMDB.Mount
' Dismount the mailbox store.
' iMDB.DisMount
' Clean up.
Set iMDB = Nothing
---------------------------------------
Jeffrey Edgington
Systems Administrator
University of Missouri - Rolla
Are you a Spectator or a Participant?
---------------------------------------
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
