January 2006
Beginner
832 pages
27h 52m
English
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."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.