返回所有邮箱的总大小

返回在 Exchange 服务器上的所有邮箱的总大小。、
Visual Basic
‘ Test : OK
Dim TailleTotale
TailleTotale = 0
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\MicrosoftExchangeV2″)
Set colItems = objWMIService.ExecQuery( _
“SELECT * FROM Exchange_Mailbox”,,48)
For Each objItem in colItems
TailleTotale = TailleTotale + objItem.Size
Next
TailleTotale = Round (TailleTotale / 1024,2)
WScript.Echo “Total size : “&TailleTotale&” MO.”

• About
• Latest Posts

Exchange中文站

Exchange中文站是一个专注讨论 Microsoft Exchange Server / Exchange Online / Office 365 的技术型网站。

Latest posts by Exchange中文站 (see all)

• 微软发布全新云计算资料分析工具Azure Synapse - 2020年12月15日
• Exchange Server 版本号和发行日期汇总 - 2020年9月21日
• Project OneFuzz – Azure发布了开源模糊测试框架 - 2020年9月20日