Mail-Box Count Script

Below is a nice script to run against your exchange server and get the count of mailboxes, users and size of the mailboxes. You don't have to know scripting at all to make this work. Follow the steps I am listing below, of course I got it from a coworker.

• Copy and paste the entire code into notepad
  
• Change the server name, into your server name (ServerList = Array("server1", "server2", "server3")
  
• Save the file on your Hard drive as mailboxCount.vbs ( c:\ mailboxCount.vbs)
  
• Now go to command line
  
• Drill down to same directory ( c:\ mailboxCount.vbs)
  
• Run the file by typing, c:\ mailboxCount.vbs
  

Option Explicit On Error Resume Next Dim ServerList        ' List of computers to check Dim server            ' Current computer to check Dim fso                ' File System Object Dim strWinMgmts            ' Connection string for WMI Dim objWMIExchange        ' Exchange Namespace WMI object Dim listExchange_Mailboxs    ' ExchangeLogons collection Dim objExchange_Mailbox        ' A single ExchangeLogon WMI object Dim logfile            ' Output file Const cWMINameSpace = "root/MicrosoftExchangeV2" Const cWMIInstance = "Exchange_Mailbox" Const LOG_FILE = "EMailSize.csv" '-------------------------------------- ' Set up the array of email servers '-------------------------------------- ServerList = Array("server1", "server2", "server3") '-------------------------------------- ' Set up log file '-------------------------------------- set fso = CreateObject("Scripting.FileSystemObject") Set logfile = fso.CreateTextFile(LOG_FILE) logfile.WriteLine("""Display Name"",""Mailbox Size"",""Mailbox TotalItems"",""Mailbox StoreName"",""Mailbox ServerName""") ' Create the object string, indicating WMI (winmgmts), using the ' current user credentials (impersonationLevel=impersonate), ' on the computer specified in the constant cComputerName, and ' using the CIM namespace for the Exchange provider. WScript.Echo "Starting now" 'The rest of the script will fetch mailbox sizes for our servers. Mailbox sizes are in Kilobytes. For Each server in ServerList     WScript.Echo "Starting " & server & " search."     strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//" & server & "/" & cWMINameSpace     'WScript.Echo strWinMgmts          Set objWMIExchange = GetObject(strWinMgmts)     ' Verify we were able to correctly set the object.     If Err.Number <> 0 Then         WScript.Echo "ERROR: Unable to connect to the WMI namespace."     Else         'The Resources that currently exist appear as a list of         'Exchange_Mailbox instances in the Exchange namespace.         Set listExchange_Mailboxs = objWMIExchange.InstancesOf(cWMIInstance)         ' Were any Exchange_Mailbox Instances returned?         If (listExchange_Mailboxs.count > 0) Then             ' If yes, do the following:             ' Iterate through the list of Exchange_Mailbox objects.             For Each objExchange_Mailbox in listExchange_Mailboxs                 ' Display the value of the Size property.                 logfile.WriteLine("""" & objExchange_Mailbox.MailboxDisplayName & """,""" & objExchange_Mailbox.Size & """,""" & objExchange_Mailbox.TotalItems & """,""" & objExchange_Mailbox.StoreName & """,""" & objExchange_Mailbox.ServerName & """")             Next         Else             ' If no Exchange_Mailbox instances were returned, display that.             WScript.Echo "WARNING: No Exchange_Mailbox instances were returned."         End If     End If Next Wscript.Echo "Completed"

 

Best Regards

Oz Ozugurlu