Another interesting script to get information exchange 2003 mailboxes, useful in audits, reports, etc …

'==========================================================================
' NAME   : Exchange Mailbox Stats Dumper
' AUTHOR : Brian Desmond' DATE   : 12/28/2005
' COMMENT: This script requires Exchange 2003. It will dump information
'   about each mailbox on the mailbox servers specified
'
' Version  Date  Author   Note
' -----------------------------------------------------------------
' 1.0   28Nov05  Brian Desmond Initial Version
' 1.1   03Sep06  Brian Desmond 
' 1.2   13Dec08  Brian Desmond Fixed array sizing bug,
'           Added error handling note
'           Added TODOs
'           Moved configurable items up
'==========================================================================
Option Explicit
' Note this script currently uses On Error Resume Next
' this isn't best practice - in reality this should be tightly 
' wrapped around the WMI connection logic in the loop rather
' than up here.
On Error Resume Next
' TODO: Configure this
' This is the total number of servers which you
' will specify for inventory
Const TOTAL_SERVERS = 1
Dim strComputer()
ReDim strComputer(TOTAL_SERVERS)
' TODO: Populate this array
' Enter each server name below as an entry in the array
' starting with zero
strComputer(0) = "xxb01"
strComputer(1) = "xmb02"
strComputer(2) = "xmb03"
'==========================================================================
Dim objWMIService
Dim colItems
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fil
Set fil = fso.CreateTextFile("mailboxes.txt")
Dim objItem
Dim line
Dim i
' Write a header row to the CSV
fil.WriteLine """Server"",""Storage Group"",""Mail Store"",""Mailbox GUID"",""Display Name"",""LegacyDN"",""Size"",""Item Count"",""Associated Content Count"",""Deleted Message Size"",""Date Absent"",""Storage Limit Level"""
For i = 0 To TOTAL_SERVERS - 1
 Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer(i) & _
         "\ROOT\MicrosoftExchangeV2")
  
 Set colItems = objWMIService.ExecQuery _
     ("Select * from Exchange_Mailbox")
  
 For Each objItem in colItems
  line = """" & objItem.ServerName & """"
  line = line & ","
  line = line & """" & objItem.StorageGroupName & """"
  line = line & ","
  line = line & """" & objItem.StoreName & """"
  line = line & ","
  line = line & """" & objItem.MailboxGUID & """"
  line = line & ","
  line = line & """" & objItem.MailboxDisplayName & """"   
  line = line & ","
  line = line & """" & objItem.LegacyDN & """"
  line = line & ","
  line = line & """" & objItem.Size & """"
  line = line & ","
  line = line & """" & objItem.TotalItems & """"
  line = line & ","
     line = line & """" & objItem.AssocContentCount & """"
     line = line & ","
     line = line & """" & objItem.DeletedMessageSizeExtended & """"
     line = line & ","
     line = line & """" & objItem.DateDiscoveredAbsentInDS & """"
     line = line & ","
     line = line & """" & objItem.StorageLimitInfo & """"
      
     fil.WriteLine line 
     'WScript.Echo line 
 Next
Next
fil.Close
Set fso = Nothing
Set objWMIService = Nothing
Facebooktwittergoogle_plusredditpinterestlinkedinmail