Messaging and Communication
Microsoft Exchange Server 2003
List Exchange Mailbox Information , WMI
' List Exchange Mailbox Information
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
|
VbsEdit includes all these samples!
Download version 3.4.1
Released Tuesday, January 06, 2009 -
The evaluation version never expires
Home
Buy Now
HtaEdit
Support
Video
What's new ?
Awards
|