NumberOfMessages Property
Exchange Server 2003
The NumberOfMessages property specifies the number of messages that are waiting for transmission across the link. The NumberOfMessages property is read-only.
Applies To
The NumberOfMessages property is a member of the ExchangeLink Class.
Instance Path
The NumberOfMessages property appears on instances of the \\COMPUTERNAME\ROOT\cimv2\applications\exchange:ExchangeLink class.
MOF Syntax
uint32 NumberOfMessages;
Qualifiers
This property has no qualifiers.
VBScript Example
The following example shows how to retrieve a list of ExchangeLink instances, and how to retrieve the NumberOfMessages property for each instance.
'===============================================================
' Name: ShowLinks_NumberOfMessages
' Purpose: Display each Link found for Exchange server specified,
' and show the NumberOfMessages property for the
' ExchangeLink objects
' Input: strComputerName [string] the computer to access
' Output: Displays the name of each Link and NumberOfMessages
'===============================================================
Public Sub ShowLinks_NumberOfMessages ( strComputerName )
Const cWMINameSpace = "root/cimv2/applications/exchange"
Const cWMIInstance = "ExchangeLink"
Dim strWinMgmts ' Connection string for WMI
Dim objWMIExchange ' Exchange Namespace WMI object
Dim listExchangeLinks ' ExchangeLink collection
Dim objExchangeLink ' A single ExchangeLink WMI object
' Create the object string, indicating WMI (winmgmts), using the
' current user credentials (impersonationLevel=impersonate),
' on the computer passed to the function in strComputerName, and
' using the CIM namespace for the ExchangeLink provider.
strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//" & _
strComputerName & "/" & cWMINameSpace
'
' Get an object using the string you just created.
Set objWMIExchange = GetObject(strWinMgmts)
'
' The links that currently exist appear as a list of
' ExchangeLink instances in the Exchange namespace.
Set listExchangeLinks = objWMIExchange.InstancesOf(cWMIInstance)
'
' Iterate through the list of ExchangeLink objects.
For each objExchangeLink in listExchangeLinks
'
' Display the value of the LinkName property.
WScript.echo "LinkName = [" & _
TypeName(objExchangeLink.LinkName) & "] " & _
objExchangeLink.LinkName
'
' Display the value of the NumberOfMessages property.
WScript.echo " NumberOfMessages = " & _
"[" & TypeName(objExchangeLink.NumberOfMessages) & "] " & _
objExchangeLink.NumberOfMessages
'
' Move to the next ExchangeLink.
Next
end Sub
