Active Directory, 3rd Edition

Enumerating Disconnected Mailboxes

If you want to know which disconnected mailboxes exist on an Exchange server, you can simply enumerate them. The following code shows how to enumerate disconnected mailboxes:

    ' This code enumerates disconnected mailboxes.
    Option Explicit
    Dim strComputer, objWMI, objDiscMbx, objMbx
    ' ------ SCRIPT CONFIGURATION ------
    strComputer = "<Exchange Server>" 'e.g. ExchServer2
    ' ------ END CONFIGURATION ---------

    Set objWMI = GetObject("winmgmts:\\" & strComputer & _
                           "\root\MicrosoftExchangeV2")

    Set objDiscMbx = objWMI.ExecQuery("Select * from Exchange_Mailbox",,48)
    For Each objMbx In objDiscMbx
      If (objMbx.DateDiscoveredAbsentInDS <> "") then
         WScript.Echo objMbx.MailBoxDisplayName & " " & _
                      objMbx.DateDiscoveredAbsentInDS
      End If
    Next
    WScript.Echo "Successfully enumerated disconnected mailboxes."

Tip

Although viewing mailbox details in the Exchange System Manager (ESM) requires only Exchange View Admin role access, in order to do this with a script, the WMI provider also requires local administrator permissions on the Exchange server.

Just like the Purge Mailbox and Reconnect Mailbox scripts, this script uses the WMI Exchange_Mailbox class to gather the requested information.