返回所有邮箱的总大小

返回在 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.”