# Kod wywietla wszystkie skrzynki pocztowe i ich pojemno

use Win32::OLE qw(in);
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<SerwerExchange>'; # np. ExchServer2
# ------ KONIEC KONFIGURACJI ---------

$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\MicrosoftExchangeV2');
$objMbxs = $objWMI->ExecQuery('Select * from Exchange_Mailbox', undef, 48);
foreach my $objMbx (in $objMbxs) {
    print $objMbx->MailBoxDisplayName . ' ' . $objMbx->size . 'kB  ' . $objMbx->TotalItems . ' items', "\n";
}
print "Skrypt zosta wykonany z powodzeniem.\n";
