List Exchange Recipients with Mailbox Larger Than a Specified Size
Submitted By: Umesh Chandra Thakur
Language: VBScript
Description: Displays all Exchange recipients whose mailbox size is greater than specified amount (in KB).
Script Code
strComputer = "."
intMailboxSize = 2048 'size in KB, all recipient who exceeds this amount will be displayed
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & _
"\ROOT\MicrosoftExchangeV2")
Set colItems = objWMIService.ExecQuery("Select * from Exchange_Mailbox where size > " & intMailboxSize)
if colItems.count = 0 then 'no recipients were found
wscript.echo "No items were found"
wscript.quit
end if
mbs_len = len("MAILBOX SIZE(KB)")
mbdn_len = len("MAILBOX DISPLAY NAME")
wscript.echo "MAILBOX DISPLAY NAME" & space(30 - mbdn_len) & "MAILBOX SIZE(KB)"
For Each objItem in colItems
if len(objItem.MailboxDisplayName) > 30 then
padding = 0
Wscript.stdOut.write left(objItem.MailboxDisplayName,27) & "..." & space(padding)
else
padding = 30 - len(objItem.MailboxDisplayName)
Wscript.stdOut.write objItem.MailboxDisplayName & space(padding)
end if
Wscript.stdOut.write space(mbs_len - len(cstr(objItem.Size))) & objItem.Size
wscript.echo
next
Note: Not all scripts run on all versions of Windows.
For online peer support, join The Official Scripting Guys Forum! To provide feedback or report bugs in sample scripts or on the Script Center, please contact scripter@microsoft.com.
Disclaimer
This script is not supported under any Microsoft standard support program or service. The script is provided AS IS without warranty of any kind. Microsoft further disclaims all implied warranties including, without limitation, any implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the script and documentation remains with you. In no event shall Microsoft, its authors, or anyone else involved in the creation, production, or delivery of the script be liable for any damages whatsoever (including, without limitation, damages for loss of business profits, business interruption, loss of business information, or other pecuniary loss) arising out of the use of or inability to use the script or documentation, even if Microsoft has been advised of the possibility of such damages.
