返回所有邮箱的总大小

返回在 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)
发布于: 浏览:1178 次

还没有评论

欢迎参与到我们的技术讨论,问题和分享都可以。

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据