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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file

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

This is a VB Script, this can be used by saving the file in .vbs file