[求助]使用脚本返回所有邮箱的总共大小 [复制链接]

' 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."