Report of Mailboxes within each storage group

[rosaljr]

Hi everyone,

I would like a report that shows all email addresses within a storage group. Can that be easily attained? If so, how would I go about doing it?

 

[markdmac]

This scritp is from Jeff Hicks, does it give you what you want?

strTitle="Storage Group Report"
strServer=InputBox("What is the name of the Exchange Server?",strTitle,"TANK")

SGReport strServer
WScript.Quit

Sub SGReport(strServer)
Dim iServer
Dim iSGs
Dim iMBS

Set iServer=CreateObject("CDOEXM.ExchangeServer")
Set iSGs=CreateObject("CDOEXM.StorageGroup")
Set iMBs=CreateObject("CDOEXM.MailboxStoreDB")
iServer.DataSource.Open strServer

arrSGs=iServer.StorageGroups

For i=0 To UBound(arrSGs)
	strSGUrl=arrSGs(i)
	'WScript.Echo strSGUrl
	iSGs.DataSource.Open "LDAP://" & iServer.DirectoryServer & "/" & strSGUrl
	strData=strData & iSGs.Name & VBCRLF
	strData=strData & vbTab & "LogPath: " &iSGs.LogFilePath & VBCRLF
	strData=strData & vbTab & "SystemPath:" & iSGs.SystemFilePath & VBCRLF
	strData=strData & "  MailBox Stores:" & VBCRLF
	arrMBStores=iSGs.MailboxStoreDBs
	For j=0 To UBound(arrMBStores)
		iMBS.DataSource.open "LDAP://" & arrMBStores(j)	
		strData=strData & vbTab & iMBS.Name & VbCrLf
	Next
Next

WScript.Echo strData


End sub

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.