Größe der Postfächer aus der Active Directory auslesen

On Error Resume Next

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & _  
        "\ROOT\MicrosoftExchangeV2")  

Set colItems = objWMIService.ExecQuery _
    ("Select * from Exchange_Mailbox")  

For Each objItem in colItems
    Wscript.Echo "Associated content count: " & _  
        objItem.AssocContentCount
    Wscript.Echo "Date discovered absent in directory service: " & _  
        objItem.DateDiscoveredAbsentInDS
    Wscript.Echo "Delete messages size extended: " & _  
        objItem.DeletedMessageSizeExtended
    Wscript.Echo "Last logged-on user account: " & _  
        objItem.LastLoggedOnUserAccount
    Wscript.Echo "Last logoff time: " & objItem.LastLogoffTime  
    Wscript.Echo "Last logon time: " & objItem.LastLogonTime  
    Wscript.Echo "Legacy distinguished name: " & objItem.LegacyDN  
    Wscript.Echo "Mailbox display name: " & _  
        objItem.MailboxDisplayName
    Wscript.Echo "Mailbox GUID: " & objItem.MailboxGUID  
    Wscript.Echo "Server name: " & objItem.ServerName  
    Wscript.Echo "Size: " & objItem.Size  
    Wscript.Echo "Storage group name: " & _  
        objItem.StorageGroupName
    Wscript.Echo "Storage limit information: " & _  
        objItem.StorageLimitInfo
    Wscript.Echo "Store name: " & objItem.StoreName  
    Wscript.Echo "Total items: " & objItem.TotalItems  
    Wscript.Echo
Next