Download GetMailboxStatistics.vbs

A number of people have been looking for Get-MailboxStatistics for Exchange 2003. I have a PowerShell version of this script for exactly that reason here.

This script is only intended for use with Exchange 2003. Exchange 2000 must use MAPI, Exchange 2007 has a PowerShell cmdlet, Get-MailboxStatistics, which can much more easily return this information.

It requires access to WMI on each Exchange Server, but does not require any of the Exchange System Tools. legacyExchangeDN is used to match accounts between AD and Exchange.

The script performs a number of searches in Active Directory. The largest number if multiple Admin Groups are selected (/a:”Admin Group*”). It can be instructed to use a single DC by specifying a name with the /dc switch. For forest-wide searches that must be a Global Catalog. If no DC is specified the script executes a DNS query for Global Catalog service records on the current forest name to attempt to find a (responding) GC in the current site, failing back to any GC in the forest otherwise.

Usage

cscript GetMailboxStatistics.vbs [/o] [/s:<exchangeServer>]
        [/a:"<administrative Group Name>"] [/d:<domainName>]
        [/dc:<domainControllerName>] [/f:<fileName>]

One of the following parameters must be specified:

/o      Get statistics from all Exchange Servers in the organisation
        This option overrides all others
/s      Get statistics for this Exchange Server only
        This option overrides all except /o
/a      Get statistics from all Exchange Servers in the specified Administrative Group
/d      Get statistics from all Exchange Servers in the specified Domain

The following parameters are optional:

/dc     A Domain Controller to use for this process. Must be a Global Catalog
        for reporting that covers a Forest. The script will attempt to find a
        GC in the current site if not specified.
/f      File Name for the output. Default file name is MailboxReport.csv

The following details are returned by this script:

• Name
• DN
• AccountStatus (Enabled / Disabled)
• UseDefaultQuotas (True / False)
• Warn (in Mb, Warning Limit if specified on User Account)
• ProhibitSend (in Mb, if specified on User Account)
• ProhibitSendAndReceive (in Mb, if specified on User Account)
• Size (in Mb)
• TotalItems
• MailboxStatus (BelowLimit, IssueWarning, ProhibitSend, NoChecking, MailboxDisabled)
• AssocContentCount (Total Number of messages associated with the mailbox folders)
• DeletedMessageSize (in Mb)
• LastLoggedOnUser
• LastLogon
• LastLogoff
• DateDeleted (for mailboxes which have been disconnected, waiting to be purged)
• MailboxDisplayName
• MailboxGuid
• ServerName (Exchange Server)
• StorageGroup
• Store
• legacyExchangeDN

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

Function GetStores
  ' Return Type: Scripting.Dictionary
  '
  ' Finds all Private Information Stores in AD

  Const ADS_SCOPE_SUBTREE = 2

  Dim objConnection : Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Provider = "ADsDSOObject"
  objConnection.Open "Active Directory Provider"

  Dim objCommand : Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection

  Dim objRootDSE : Set objRootDSE = GetObject("LDAP://RootDSE")
  objCommand.CommandText = "SELECT name, distinguishedName " & _
    "FROM 'LDAP://" & objRootDSE.Get("configurationNamingContext") & _
    "' WHERE objectClass='msExchPrivateMDB'"

  objCommand.Properties("Page Size") = 1000
  objCommand.Properties("Timeout") = 600
  objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
  objCommand.Properties("Cache Results") = False

  Dim objRecordSet : Set objRecordSet = objCommand.Execute

  Dim objStores : Set objStores = CreateObject("Scripting.Dictionary")

  While Not objRecordSet.EOF
    Dim strDN : strDN = objRecordSet.Fields("distinguishedName").Value
    Dim strName : strName = objRecordSet.Fields("name").Value
    objStores.Add strDN, strName

    objRecordSet.MoveNext
  WEnd

  Set GetStores = objStores
End Function

Usage example

Set objStores = GetStores

For Each strDN in objStores
  WScript.Echo "DN: " & strDN & vbCrLf & "Name: " & objStores(strDN)
Next

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.