# This script was originally published in the Exchange Cookbook,
# (http://www.exchangebookcook.com). Written by Paul Robichaux, 
# Missy Koslosky, and Devin Ganger. Redistributed with permission 
# of the publisher, O'Reilly & Associates.

# This code removes the specified database from its
# parent storage group without touching the on-disk files

# ------ SCRIPT CONFIGURATION ------

use Win32::OLE;

$strServerName = '<serverName>';
# e.g. "BATMAN"	
$strMDBName = '<mdbName>';
# ------ END CONFIGURATION ---------

$theServer = Win32::OLE->new('CDOEXM.ExchangeServer');
$theMDB = Win32::OLE->new('CDOEXM.MailboxStoreDB');

# bind to the Exchange server and build the database URL
$theServer->DataSource->Open($strServerName);

# Get the array list of StorageGroups, then coerce it to get the first
# SG name. You'd need to modify this to delete a database in a
# storage group other than the first one.
$theSGArr = $theServer->StorageGroups;
$theFirstSG = theSGArr(0);

$strURL = 'LDAP://' . $theServer->DirectoryServer . '/cn=' . $strMDBName . ',' . $theFirstSG;
$theMDB->{Name} = $strMDBName;
$theMDB->DataSource->Open($strURL);
$theMDB->DataSource->Delete();
print "Deleted MDB $strMDBName\n";