Solved

Vbscript: List Exchange user Mailboxs in a cluster

Posted on 2009-07-15
4
589 Views
Last Modified: 2012-08-13
I need a Vbscript which can list the mailbox information in a cluster environment. I need the following information saved to .csv file.

ServerName ,StorageGroupName,StoreName ,OU path, MailboxDisplayName,Size,TotalItems, LastLogonTime, LastLogoffTime.

Thank You
0
Comment
Question by:raju1706
  • 2
  • 2
4 Comments
 
LVL 6

Accepted Solution

by:
ou_dober earned 500 total points
ID: 24861234
raju1706,

Here is a link to a script that does just that.

http://briandesmond.com/blog/script-to-dump-exchange-mailbox-info-to-spreadsheet-csv/

I added the code for quickness.  Hope this helps.

ou_dober

'==========================================================================

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 = 3
 

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) = "xmb01"

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

Open in new window

0
 
LVL 1

Author Comment

by:raju1706
ID: 24862172
Thank You ou.  Can you also help me with the full OU path of the mailbox ?
0
 
LVL 6

Expert Comment

by:ou_dober
ID: 24863263
I dont believe you need one with the objWMIServer is calling out the "\ROOT\MicrosoftExchangeV2".  Where do you see the need for the OU full path declaration?
0
 
LVL 1

Author Closing Comment

by:raju1706
ID: 31603707
Thank You ou_dober appreciate it.
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

This is an addendum to the following article: Acitve Directory based Outlook Signature (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24950055.html) The script is fine, and works in normal client-server domains…
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now