You are here:

ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > Messaging and Communication > Exchange Server 2003

Monitor servers, workstations, devices and applications in your network

Quicklinks

Download ActiveXperts Network Monitor 7.2 (11276 KB)
Download Manual (925 KB)

MS Exchange 2003 Scripts

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.

List Exchange Cluster Resource Information

Lists cluster resource information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" &  _
        strComputer & "\CIMV2\Applications\Exchange")

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

For Each objItem in colItems
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Owner: " & objItem.Owner
    Wscript.Echo "State: " & objItem.State
    Wscript.Echo "Type: " & objItem.Type
    Wscript.Echo "Virtual machine: " & objItem.VirtualMachine
    Wscript.Echo
Next

List Exchange Connector State Information

Lists connector state information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" &  _
        strComputer & "\CIMV2\Applications\Exchange")

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

For Each objItem in colItems
    Wscript.Echo "Distinguished name: " & objItem.DN
    Wscript.Echo "Group distinguished name: " & objItem.GroupDN
    Wscript.Echo "Group GUID: " & objItem.GroupGUID
    Wscript.Echo "GUID: " & objItem.GUID
    Wscript.Echo "Is up: " & objItem.IsUp
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo
Next

List Exchange Domain Controller Information

Lists domain controller information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Configuration: " & objItem.Configuration
    Wscript.Echo "Directory type: " & objItem.DirectoryType
    Wscript.Echo "Is fast: " & objItem.IsFast
    Wscript.Echo "Is in sync: " & objItem.IsInSync
    Wscript.Echo "Is up: " & objItem.IsUp
    Wscript.Echo "LDAP port: " & objItem.LDAPPort
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Type: " & objItem.Type
    Wscript.Echo
Next

List Exchange Folder Tree Information

Returns information about the folder tree found on a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Administrative group: " & _
        objItem.AdministrativeGroup
    Wscript.Echo "Administrative noe: " & _
        objItem.AdministrativeNote
    Wscript.Echo "Associated public stores: " & _
        objItem.AssociatedPublicStores
    Wscript.Echo "Creation time: " & objItem.CreationTime
    Wscript.Echo "GUID: " & objItem.GUID
    Wscript.Echo "Has local public store: " & _
        objItem.HasLocalPublicStore
    Wscript.Echo "Last modification time: " & _
        objItem.LastModificationTime
    Wscript.Echo "MAPI folder tree: " & objItem.MAPIFolderTree
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Root folder URL: " & objItem.RootFolderURL
    Wscript.Echo
Next

List Exchange Link Information

Returns information about Exchange links on a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Action freeze: " & objItem.ActionFreeze
    Wscript.Echo "Action kick: " & objItem.ActionKick
    Wscript.Echo "Action thaw: " & objItem.ActionThaw
    Wscript.Echo "Extended state info: " & _
        objItem.ExtendedStateInfo
    Wscript.Echo "Global stop: " & objItem.GlobalStop
    Wscript.Echo "Link distinguished name: " & objItem.LinkDN
    Wscript.Echo "Link ID: " & objItem.LinkID
    Wscript.Echo "Link name: " & objItem.LinkName
    Wscript.Echo "Message count: " & objItem.MessageCount
    Wscript.Echo "Next scheduled connection: " & _
        objItem.NextScheduledConnection
    Wscript.Echo "Oldest message: " & objItem.OldestMessage
    Wscript.Echo "Protocol name: " & objItem.ProtocolName
    Wscript.Echo "Size: " & objItem.Size
    Wscript.Echo "State action: " & objItem.StateActive
    Wscript.Echo "State flags: " & objItem.StateFlags
    Wscript.Echo "State frozen: " & objItem.StateFrozen
    Wscript.Echo "State ready: " & objItem.StateReady
    Wscript.Echo "State remote: " & objItem.StateRemote
    Wscript.Echo "State retry: " & objItem.StateRetry
    Wscript.Echo "State scheduled: " & objItem.StateScheduled
    Wscript.Echo "Support link actions: " & _
        objItem.SupportLinkActions
    Wscript.Echo "Type currently unreachable: " & _
        objItem.TypeCurrentlyUnreachable
    Wscript.Echo "Type deferred deilvery: " & _
        objItem.TypeDeferredDelivery
    Wscript.Echo "Type internal: " & objItem.TypeInternal
    Wscript.Echo "Type local delivery: " & _
        objItem.TypeLocalDelivery
    Wscript.Echo "Type pending categorization: " & _
        objItem.TypePendingCategorization
    Wscript.Echo "Type pending routing: " & _
        objItem.TypePendingRouting
    Wscript.Echo "Type pending submission: " & _
        objItem.TypePendingSubmission
    Wscript.Echo "Type remote delivery: " & _
        objItem.TypeRemoteDelivery
    Wscript.Echo "Version: " & objItem.Version
    Wscript.Echo "Virtual machine: " & objItem.VirtualMachine
    Wscript.Echo "Virtual server name: " & _
        objItem.VirtualServerName
    Wscript.Echo
Next

List Exchange Logon Information

Lists logon information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Client version: " & objItem.ClientVersion
    Wscript.Echo "Code page ID: " & objItem.CodePageID
    Wscript.Echo "Folder operations rate: " & _
        objItem.FolderOperationsRate
    Wscript.Echo "Host addess: " & objItem.HostAddress
    Wscript.Echo "Last operation time: " & _
        objItem.LastOperationTime
    Wscript.Echo "Locale ID: " & objItem.LocaleID
    Wscript.Echo "Logged-on user account: " & _
        objItem.LoggedOnUserAccount
    Wscript.Echo "Logged-on user's malibx legacy distinguished name: " _
        & objItem.LoggedOnUsersMailboxLegacyDN
    Wscript.Echo "Logon time: " & objItem.LogonTime
    Wscript.Echo "Mailbox display name: " & _
        objItem.MailboxDisplayName
    Wscript.Echo "Mailbox legacy distinguished name: " & _
        objItem.MailboxLegacyDN
    Wscript.Echo "Messaging operation count: " & _
        objItem.MessagingOperationRate
    Wscript.Echo "Open attachment count: " & _
        objItem.OpenAttachmentCount
    Wscript.Echo "Open folder count: " & objItem.OpenFolderCount
    Wscript.Echo "Open message count: " & objItem.OpenMessageCount
    Wscript.Echo "Other operation rate: " & _
        objItem.OtherOperationRate
    Wscript.Echo "Progress operation rate: " & _
        objItem.ProgressOperationRate
    Wscript.Echo "Row ID: " & objItem.RowID
    Wscript.Echo "Server name: " & objItem.ServerName
    Wscript.Echo "Storage group name: " & objItem.StorageGroupName
    Wscript.Echo "Store name: " & objItem.StoreName
    Wscript.Echo "Store type: " & objItem.StoreType
    Wscript.Echo "Stream operation rate: " & _
        objItem.StreamOperationRate
    Wscript.Echo "Table operation rate: " & _
        objItem.TableOperationRate
    Wscript.Echo "Total operation rate: " & _
        objItem.TotalOperationRate
    Wscript.Echo "Transfer operation rate: " & _
        objItem.TransferOperationRate
    Wscript.Echo
Next

List Exchange Mailbox Information

Returns mailbox information for a computer running Microsoft Exchange Server 2003.

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

List Exchange Message Tracking Entry Information

Returns message tracking entry information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Attempted partner server: " &  _
        objItem.AttemtpedPartnerServer
    Wscript.Echo "Client IP: " & objItem.ClientIP
    Wscript.Echo "Client name: " & objItem.ClientName
    Wscript.Echo "Cost: " & objItem.Cost
    Wscript.Echo "Delivery time: " & objItem.DeliveryTime
    Wscript.Echo "Encrypted: " & objItem.Encrypted
    Wscript.Echo "Entry type: " & objItem.EntryType
    Wscript.Echo "Expansion DL: " & objItem.ExpansionDL
    Wscript.Echo "Key ID: " & objItem.KeyID
    Wscript.Echo "Linked message ID: " &  _
        objItem.LinkedMessageID
    Wscript.Echo "Message ID: " & objItem.MessageID
    Wscript.Echo "Origination time: " & objItem.OriginationTime
    Wscript.Echo "Partner server: " & objItem.PartnerServer
    Wscript.Echo "Priority: " & objItem.Priority
    Wscript.Echo "Recipient address: " &  _
        objItem.RecipientAddress
    Wscript.Echo "Recipient count: " & objItem.RecipientCount
    Wscript.Echo "Recipient status: " & objItem.RecipientStatus
    Wscript.Echo "Sender address: " & objItem.SenderAddress
    Wscript.Echo "Server IP: " & objItem.ServerIP
    Wscript.Echo "Server name: " & objItem.ServerName
    Wscript.Echo "Size: " & objItem.Size
    Wscript.Echo "Subject: " & objItem.Subject
    Wscript.Echo "Subject ID: " & objItem.SubjectID
    Wscript.Echo "Time logged: " & objItem.TimeLogged
    Wscript.Echo "Version: " & objItem.Version
    Wscript.Echo
Next

List Exchange Public Folder Information

Returns public folder information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Address book name: " & objItem.AddressBookName
    Wscript.Echo "Administrative note: " & _
        objItem.AdministrativeNote
    Wscript.Echo "Administrative security descriptor: " & _
        objItem.AdminSecurityDescriptor
    Wscript.Echo "Active Directory proxy path: " & _
        objItem.ADProxyPath
    Wscript.Echo "Associated messgae count: " & _
        objItem.AssociatedMessageCount
    Wscript.Echo "Attachment count: " & objItem.AttachmentCount
    Wscript.Echo "Categorization count: " & _
        objItem.CategorizationCount
    Wscript.Echo "Comment: " & objItem.Comment
    Wscript.Echo "Contact count: " & objItem.ContactCount
    Wscript.Echo "Contains rules: " & objItem.ContainsRules
    Wscript.Echo "Creation time: " & objItem.CreationTime
    Wscript.Echo "Deleted item lifetime: " & _
        objItem.DeletedItemLifetime
    Wscript.Echo "Folder tree: " & objItem.FolderTree
    Wscript.Echo "Friendly URL: " & objItem.FriendlyURL
    Wscript.Echo "Has children: " & objItem.HasChildren
    Wscript.Echo "Has local replica: " & objItem.HasLocalReplica
    Wscript.Echo "Is mail enabled: " & objItem.IsMailEnabled
    Wscript.Echo "Is normal folder: " & objItem.IsNormalFolder
    Wscript.Echo "Is search folder: " & objItem.IsSearchFolder
    Wscript.Echo "Is secure in site: " & objItem.IsSecureInSite
    Wscript.Echo "Last access time: " & objItem.LastAccessTime
    Wscript.Echo "Last modification time: " & _
        objItem.LastModificationTime
    Wscript.Echo "Maximum item size: " & objItem.MaximumItemSize
    Wscript.Echo "Message count: " & objItem.MessageCount
    Wscript.Echo "Message with attachments count: " & _
        objItem.MessageWithAttachmentsCount
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Normal message size: " & _
        objItem.NormalMessageSize
    Wscript.Echo "owner count: " & objItem.OwnerCount
    Wscript.Echo "Parent friendly URL: " & _
        objItem.ParentFriendlyURL
    Wscript.Echo "Path: " & objItem.Path
    Wscript.Echo "Prohibit post limit: " & _
        objItem.ProhibitPostLimit
    Wscript.Echo "Publish in address book: " & _
        objItem.PublishInAddressBook
    Wscript.Echo "Recipiejt count on associated messages: " & _
        objItem.RecipientCountOnAssociatedMessages
    Wscript.Echo "Recipient count on normal messages: " & _
        objItem.RecipientCountOnNormalMessages
    Wscript.Echo "Replica age limit: " & objItem.ReplicaAgeLimit
    Wscript.Echo "Replica list: " & objItem.ReplicaList
    Wscript.Echo "Replication message priority: " & _
        objItem.ReplicationMessagePriority
    Wscript.Echo "Replication schedule: " & _
        objItem.ReplicationSchedule
    Wscript.Echo "Replication style: " & objItem.ReplicationStyle
    Wscript.Echo "Replication count: " & objItem.RestrictionCount
    Wscript.Echo "Security descriptor: " & _
        objItem.SecurityDescriptor
    Wscript.Echo "Storage limit style: " & objItem.StorageLimitStyle
    Wscript.Echo "Target address: " & objItem.TargetAddress
    Wscript.Echo "Total message size: " & objItem.TotalMessageSize
    Wscript.Echo "URL: " & objItem.URL
    Wscript.Echo "Use public store age limits: " & _
        objItem.UsePublicStoreAgeLimits
    Wscript.Echo "Use public store deleted item lifetime: " & _
        objItem.UsePublicStoreDeletedItemLifetime
    Wscript.Echo "Warning limit: " & objItem.WarningLimit
    Wscript.Echo
Next

List Exchange Queue Information

Returns queue information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Can enumerate all: " & objItem.CanEnumAll
    Wscript.Echo "Can enumerate failures: " & objItem.CanEnumFailed
    Wscript.Echo "Van enumerate first N messages: " & _
        objItem.CanEnumFirstNMessages
    Wscript.Echo "Can enumerate frozen messages: " & _
        objItem.CanEnumFrozen
    Wscript.Echo "Can enumerate messages not meeting the criteria: " & _
        objItem.CanEnumInvertSense
    Wscript.Echo "Can enumerate messages larger than X: " & _
        objItem.CanEnumLargerThan
    Wscript.Echo "Can enumerate largest N messages: " & _
        objItem.CanEnumNLargestMessages
    Wscript.Echo "Can enumerate oldest N messages: " & _
        objItem.CanEnumNOldestMessages
    Wscript.Echo "Can enumerate messages older than X: " & _
        objItem.CanEnumOlderThan
    Wscript.Echo "Can enumerate recipients: " & _
        objItem.CanEnumRecipient
    Wscript.Echo "Can enumerate senders: " & objItem.CanEnumSender
    Wscript.Echo "Global stop: " & objItem.GlobalStop
    Wscript.Echo "Increasing time: " & objItem.IncreasingTime
    Wscript.Echo "Link name: " & objItem.LinkName
    Wscript.Echo "Message enumeration flags supported: " & _
        objItem.MsgEnumFlagsSupported
    Wscript.Echo "Number of messages: " & objItem.NumberOfMessages
    Wscript.Echo "Protocol name: " & objItem.ProtocolName
    Wscript.Echo "Queue name: " & objItem.QueueName
    Wscript.Echo "Size of queue: " & objItem.SizeOfQueue
    Wscript.Echo "Version: " & objItem.Version
    Wscript.Echo "Virtual machine: " & objItem.VirtualMachine
    Wscript.Echo "Virtual server name: " & objItem.VirtualServerName
    Wscript.Echo
Next

List Exchange Schedule Interval Information

Returns Microsoft Exchange 2003 schedule interval information.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Start time: " & objItem.StartTime
    Wscript.Echo "Stop time: " & objItem.StopTime
    Wscript.Echo
Next

List Exchange Server Information

Returns basic configuration information for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Administrative group: " & _
        objItem.AdministrativeGroup
    Wscript.Echo "Administrative note: " & objItem.AdministrativeNote
    Wscript.Echo "Creation time: " & objItem.CreationTime
    Wscript.Echo "Distinguished name: " & objItem.DN
    Wscript.Echo "Exchange version: " & objItem.ExchangeVersion
    Wscript.Echo "Fully-qualified domain name: " & objItem.FQDN
    Wscript.Echo "GUID: " & objItem.GUID
    Wscript.Echo "Is front-end server: " & objItem.IsFrontEndServer
    Wscript.Echo "Last modification time: " & _
        objItem.LastModificationTime
    Wscript.Echo "Message tracking enabled: " & _
        objItem.MessageTrackingEnabled
    Wscript.Echo "Message tracking log file lifetime: " & _
        objItem.MessageTrackingLogFileLifetime
    Wscript.Echo "Message tracking log file path: " & _
        objItem.MessageTrackingLogFilePath
    Wscript.Echo "Monitoring enabled: " & objItem.MonitoringEnabled
    Wscript.Echo "MTA data path: " & objItem.MTADataPath
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Routing group: " & objItem.RoutingGroup
    Wscript.Echo "Subject logging enabled: " & _
        objItem.SubjectLoggingEnabled
    Wscript.Echo "Type: " & objItem.Type
    Wscript.Echo
Next

List Exchange Server State Information

Returns information about the current state of a computer running Microsoft Exchange Server 2003.

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" &  _
        strComputer & "\CIMV2\Applications\Exchange")

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

For Each objItem in colItems
    Wscript.Echo "Cluster state: " & objItem.ClusterState
    Wscript.Echo "Cluster state string: " & _
        objItem.ClusterStateString
    Wscript.Echo "CPU state: " & objItem.CPUState
    Wscript.Echo "CPU state string: " & objItem.CPUStateString
    Wscript.Echo "Disks state: " & objItem.DisksState
    Wscript.Echo "Diskss state string: " & objItem.DisksStateString
    Wscript.Echo "Distinguished name: " & objItem.DN
    Wscript.Echo "Group dsitinguihsed name: " & objItem.GroupDN
    Wscript.Echo "Group GUID: " & objItem.GroupGUID
    Wscript.Echo "GUID: " & objItem.GUID
    Wscript.Echo "Memory state: " & objItem.MemoryState
    Wscript.Echo "Memory state string: " & _
        objItem.MemoryStateString
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Queues state: " & objItem.QueuesState
    Wscript.Echo "Queues state string: " & _
        objItem.QueuesStateString
    Wscript.Echo "Server maintenance: " & _
        objItem.ServerMaintenance
    Wscript.Echo "Server state: " & objItem.ServerState
    Wscript.Echo "Server state string: " & _
        objItem.ServerStateString
    Wscript.Echo "Services state: " & objItem.ServicesState
    Wscript.Echo "Services state string: " & _
        objItem.ServicesStateString
    Wscript.Echo "Unreachable: " & objItem.Unreachable
    Wscript.Echo "Version: " & objItem.Version
    Wscript.Echo
Next

List Exchange Virtual Server Queue Information

Lists information about the virtual server queues on a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Global actions supported: " & _
        objItem.GlobalActionsSupported
    Wscript.Echo "Global stop: " & objItem.GlobalStop
    Wscript.Echo "Protocol name: " & objItem.ProtocolName
    Wscript.Echo "Virtual machine: " & objItem.VirtualMachine
    Wscript.Echo "Virtual server name: " & _
        objItem.VirtualServerName
    Wscript.Echo
Next

List Exchange XML Queue Data

Returns information about the XML queue on a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Server name: " & objItem.ServerName
    Wscript.Echo "XML queue data: " & objItem.XMLQueueData
    Wscript.Echo
Next

List Exchange Queued Message Information

Returns information about queued messages on a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Action deleted NDR: " & objItem.ActionDeletedNDR
    Wscript.Echo "Action deleted no NDR: " & _
        objItem.ActionDeletedNoNDR
    Wscript.Echo "Action freeze: " & objItem.ActionFreeze
    Wscript.Echo "Action thaw: " & objItem.ActionThaw
    Wscript.Echo "Expiry: " & objItem.Expiry
    Wscript.Echo "High priority: " & objItem.HighPriority
    Wscript.Echo "Link ID: " & objItem.LinkID
    Wscript.Echo "Link name: " & objItem.LinkName
    Wscript.Echo "Low priority: " & objItem.LowPriority
    Wscript.Echo "Message ID: " & objItem.MessageID
    Wscript.Echo "Normal priority: " & objItem.NormalPriority
    Wscript.Echo "Protocol ID: " & objItem.ProtocolName
    Wscript.Echo "Queue ID: " & objItem.QueueID
    Wscript.Echo "Queue name: " & objItem.QueueName
    Wscript.Echo "Received: " & objItem.Received
    Wscript.Echo "Recipient count: " & objItem.RecipientCount
    Wscript.Echo "Recipients: " & objItem.Recipients
    Wscript.Echo "Sender: " & objItem.Sender
    Wscript.Echo "Size: " & objItem.Size
    Wscript.Echo "State flags: " & objItem.StateFlags
    Wscript.Echo "State frozen: " & objItem.StateFrozen
    Wscript.Echo "State retry: " & objItem.StateRetry
    Wscript.Echo "Subject: " & objItem.Subject
    Wscript.Echo "Submission: " & objItem.Submission
    Wscript.Echo "Version: " & objItem.Version
    Wscript.Echo "Virtual machine: " & objItem.VirtualMachine
    Wscript.Echo "Virtual server name: " & _
        objItem.VirtualServerName
    Wscript.Echo
Next

List the Queued Cache Reload Time

Reports the queued cash reload time for a computer running Microsoft Exchange Server 2003.

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Reload time: " & objItem.ReloadTime
    Wscript.Echo
Next