1. 登录到Exchange 2003 这台邮件服务器，确认您是DOMAIN ADMINS 和Exchange 管理员。
2.. 将如下的VB Script 脚本保留为一个VBS脚本，然后执行
'
Dim SWBemlocator
Dim objWMIService
Dim colItems
Dim objFSO
Dim objFile
strTitle="Mailbox Report"
strComputer = InputBox("What Exchange server do you want to check?",strTitle,"ExchangeServer")
UserName = ""
Password = ""
strLog="MailboxReport.csv"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.CreateTextFile(strLog,True)
'This query will fail with the Exchange WMI Provider
'strQuery="Select ServerName,StorageGroupName,StoreName,MailboxDisplayName,Size,TotalItems from Exchange_Mailbox"
strQuery="Select * from Exchange_Mailbox"
objFile.WriteLine "Server,StorageGroup,MailStore,User,Size(KB),TotalItems"
WScript.Echo "Examining " & strComputer
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"rootMicrosoftExchangeV2",UserName,Password)
Set colItems = objWMIService.ExecQuery(strQuery,,48)
For Each objItem in colItems
objFile.writeline objItem.ServerName & "," &objItem.StorageGroupName &_
"," & objItem.StoreName & "," & Chr(34) & objItem.MailboxDisplayName & Chr(34) &_
"," & objItem.Size & "," & objItem.TotalItems
'uncomment if you want to write to the screen
'WScript.echo objItem.ServerName & "," &objItem.StorageGroupName &_
'"," & objItem.StoreName & "," & CHR(34) & objItem.MailboxDisplayName & Chr(34) &_
'"," & objItem.Size & "," & objItem.TotalItems
Next
objFile.close
WScript.Echo "See " & strLog & " for results."
3. 双击执行脚本，在弹出框中写入您要检查的邮件服务器
4. 提示脚本执行完成，生成文档在桌面上显示：
5. 打开生成的文件，了解当前客户占用量
6. CSV 文件经过相应的编辑和修改后，最终结果如下：
