Vista - Determine Mailbox under Storage Group in Exchange Server 2003

Hi,

Please can you share any VBScript that can help determining number of
mailbox under exchange server or its storage group.

Thanks

"Rahul" <rahulkohli2001@xxxxxx> wrote in message
news:fe19976e-d28d-4545-bb69-f68d29243ca0@xxxxxxI believe this should work:
=========
Option Explicit
Dim strComputer, objWMIService, objMailboxes

' Specify the Exchange Server.
strComputer = "ExchSrvr3"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\" _
& strComputer & "\root\cimv2")

Set objMailboxes = objWMIService.ExecQuery _
("SELECT * FROM Exchange_Mailbox", , 48)

Wscript.Echo "Number of mailboxes: " & objMailboxes.Count

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--