# 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 lists the size of all mailboxes on the selected server.

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

use Win32::OLE qw(in);
use constant vbCrLf => "\r\n";

$strComputerName = '<serverName>';
# e.g. "batman"

# ------ END CONFIGURATION ---------
$strE2K3WMIQuery = 'winmgmts://' . $strComputerName . '/root/MicrosoftExchangeV2';

# Find each mailbox on the target server and report their
# item counts and sizes
$mboxList = Win32::OLE->GetObject('Exchange_Mailbox');

foreach my $mailbox (in $mboxList) {
    $strOutput = '';
    $strOutput = 'Mailbox: ' . $mailbox->MailboxDisplayName . vbCrLf;
    $strOutput = $strOutput . '   ' . $mailbox->Size . 'KB in ' . $mailbox->TotalItems . ' items' . vbCrLf;
    print "$strOutput\n";
}