MS Exchange 2003 Scripts
List Exchange Cluster Resource InformationList Exchange Connector State Information
List Exchange Domain Controller Information
List Exchange Folder Tree Information
List Exchange Link Information
List Exchange Logon Information
List Exchange Mailbox Information
List Exchange Message Tracking Entry Information
List Exchange Public Folder Information
List Exchange Queue Information
List Exchange Schedule Interval Information
List Exchange Server Information
List Exchange Server State Information
List Exchange Virtual Server Queue Information
List Exchange XML Queue Data
List Exchange Queued Message Information
List the Queued Cache Reload Time
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