Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 531
  • Last Modified:

How to determine the number of mailboxes in your exchange environment?

How to determine the number of mailboxes in your exchange environment?
0
rcpsmith
Asked:
rcpsmith
  • 2
3 Solutions
 
DanielWillmottCommented:
If it's a one time thing, you can go to System Manager / Administrative Groups / first administrative groups / Servers / <servername> / First Storage Group / Mailbox Store / Mailboxe. Click on the right pane and press Control-A. The number of mailboxes will show up in the lower left corner as 'x selected objects'.
0
 
brislaneCommented:
Exchange 2003 I see. Put this in a vbs file and run it.

From :- http://smtp25.blogspot.com/2007/08/mail-box-count-script_4766.html

Remember to change the ServerList = Array("server1", "server2", "server3") line to suit your environment.
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"

Open in new window

0
 
DanielWillmottCommented:
This script will do the same thin automatically when run from the Exchange server:
On Error Resume Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\ROOT\MicrosoftExchangeV2")
 
Set colItems = objWMIService.ExecQuery("Select * from Exchange_Mailbox")
 
Wscript.Echo "TOTAL MAILBOX COUNT: " & colItems.count
Set objWMIService = Nothing
Set colItems = Nothing

Open in new window

0
 
drothbartCommented:
You can also use the Exchange Best Practice analyzer. At the end, it reports that information as well as a lot of other useful information.

It will also point out any things you need to fix in Exchange, which is its primary purpose. Mailbox count is just a nice side benefit.
0

Featured Post

Has Powershell sent you back into the Stone Age?

If managing Active Directory using Windows Powershell® is making you feel like you stepped back in time, you are not alone.  For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now