# 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 script moves the logs for the specified servers first storage group
# to the specified path. 

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

use Win32::OLE;

$strServerName = '<serverName>';
# e.g. "BATMAN"	
$strMDBName = '<mdbName>';
$strNewPath = '<newPath>';
# e.g. "c:\temp\"

# ------ END CONFIGURATION ---------
$theServer = Win32::OLE->new('CDOEXM.ExchangeServer');
$theSG = Win32::OLE->new('CDOEXM.StorageGroup');

$theServer->DataSource->Open($strServerName);
# Get the array list of StorageGroups, then coerce it to get the first
# SG name
$theSGArr = $theServer->StorageGroups;
$theFirstSG = theSGArr(0);

$strURL = 'LDAP://' . $theServer->DirectoryServer . '/' . $theFirstSG;
$theSG->DataSource->Open($strURL);

# move the log filesto the specified path; this dismounts and remounts
# all of the SG's databases
$theSG->MoveLogFiles($strNewPath);
print "Log files moved to$strNewPath\n";