本文共 1632 字，大约阅读时间需要 5 分钟。

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,"\root\MicrosoftExchangeV2",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 文件经过相应的编辑和修改后，最终结果如下：

转载地址：https://databooming.blog.csdn.net/article/details/7484085 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！