返回在 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.”
Latest posts by Exchange中文站 (see all)
- 微软发布全新云计算资料分析工具Azure Synapse - 2020年12月15日
- Exchange Server 版本号和发行日期汇总 - 2020年9月21日
- Project OneFuzz – Azure发布了开源模糊测试框架 - 2020年9月20日
发布于:
浏览:1336 次
还没有评论