"Marcelo Moraes" wrote:

>
>
>  Fri, 5 Oct 2007 03:03:03 -0700, Imy <I**@discussions.microsoft.com>
> wrote:
>
> >Hi, I can't seem to find a method to obtain Mailbox sizes for all users in
> >Exchange 2000 can anyone please help?
> >
> >Also we already have the MailQ utility in place which displays queue lengths
> >across all servers, is there anyway to get this in a graphical format?
> >
> >Any links to resources will be greatly appreciated.
> >Kind regards.
> >Imy
>
>
>
> Hi
>
> I've found an script and make some changes on it
>
> First, when you start this script you'll to put the server name in the
> box and after that the script will generate a csv file with
> informnations, like:
> Server name
> Name, Size and total items
>
> =============begin================================
>
> 'Script originally created by: Don Jones & Jeffery Hicks
> 'modified by Marcelo Moraes in Sept, 19 2007
> 'List users informations (MBX size, Total Itens and Storage Limits)
>
> Dim SWBemlocator
> Dim objWMIService
> Dim colItems
> Dim objFSO
> Dim objFile
>
> strTitle="Mailbox Report"
> strcomputer=Inputbox("Please, insert the Server name",strtitle,"")
> if strcomputer="" then wscript.quit
> UserName = ""
> Password = ""
>
> strlog="MBX Report "& strcomputer & ".csv" 'To create a log with the
> server name
>
>
> Set objFSO=CreateObject("Scripting.FileSystemObject")
> Set objFile=objFSO.CreateTextFile(strLog,True)
>
> strQuery="Select * from Exchange_Mailbox"
>
> objFile.WriteLine "server : " & strcomputer
>
> objfile.writeLine
>
>
> objFile.WriteLine "User,Size(KB),Total Items,Limits Checked"
> WScript.Echo "Examining " & strComputer
> Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
> Set objWMIService = SWBemlocator.ConnectServer(strComputer,_
> "\root\MicrosoftExchangeV2",UserName,Password)
> Set colItems = objWMIService.ExecQuery(strQuery,,48)
>
> For Each objItem in colItems
> objFile.writeline Chr(34) & objItem.MailboxDisplayName &_
> Chr(34) & "," & objItem.Size & "," & objItem.TotalItems
>
> Next
>
> objFile.close
>
> WScript.Echo "See " & strLog & " for results."
>
> wscript.quit
>
>
>
> =================end of script===============
>
> I hope it helps
>