Solved

Vbscript: List Exchange user Mailboxs in a cluster

Posted on 2009-07-15
4
590 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello again, all.  For those of you that have been following along, you'll know that this is my third article on this topic (though it is not Part III).  This article is sort of remedial, and probably the topic with which I should have started the s…
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…
Both in life and business – not all partnerships are created equal. As the demand for cloud services increases, so do the number of self-proclaimed cloud partners. Asking the right questions up front in the partnership, will enable both parties …

895 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

14 Experts available now in Live!

Get 1:1 Help Now