VBScript to Enumate Exchange Mailbox sizes
Posted on February 22nd, 2008 by thehabgroup
The following vbscript can be used to enumerate the size of mailboxes in an MS Exchange environment:
On Error Resume Next
Dim arrMBX(10,3)
Dim TotalMailboxes
For intElement = 1 To 10
arrMBX(intElement,2) = 0
Next
TotalMailboxes = 0
TopMBSize = 0
LastMBsize = 0
strComputer = InputBox(”Enter the name of the Exchange Server?”,”Top Mailbox Offenders”)
Set objWMIService = GetObject(”winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\ROOT\MicrosoftExchangeV2″)
Set colMailboxes = objWMIService.ExecQuery […]
No Comments »
Filed under: Exchange
