返回在 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.”
Exchange中文站是一个专注讨论 Microsoft Exchange Server / Exchange Online / Office 365 的技术型网站。
Latest posts by Exchange中文站 (see all)
- Exchange Server 版本号和发行日期汇总 - 2020年9月21日
- Project OneFuzz – Azure发布了开源模糊测试框架 - 2020年9月20日
- 微软将推出卫星解决方案：可连接到 Azure 云服务 - 2020年9月17日
发布于：
浏览：1249 次
还没有评论