IWMSPublishingPointCurrentCounters.AllCounters (Visual Basic .NET)

banner art

Previous Next

IWMSPublishingPointCurrentCounters.AllCounters (Visual Basic .NET)

The AllCounters property retrieves an array that contains all of the counters supported by the object.

Syntax

  Variant = IWMSPublishingPointCurrentCounters.AllCounters

Property Value

A Variant array containing the counters.

Remarks

This property is read-only. The array is two-dimensional. The first element in each row contains the name of the counter property, and the second element in each row contains the value. The AllCounters property is used to speed up counter retrieval during remote administration, by making one call instead of multiple calls to retrieve multiple counter properties.

The properties returned by the array are shown in the following table.

Property Description
ConnectedPlayers Retrieves the total number of players connected to the publishing point.
OutgoingDistributionAllocatedBandwidth Retrieves the bandwidth allocated for distribution connections.
OutgoingDistributionConnections Retrieves the total number of distribution connections.
PlayerAllocatedBandwidth Retrieves the bandwidth allocated for player connections.
StreamingHTTPPlayers Retrieves the total number of players receiving streamed content by using the HTTP protocol.
StreamingMMSPlayers Retrieves the total number of players receiving streamed content by using the MMS protocol. (The MMS protocol is not supported in Windows Server 2008 operating systems.)
StreamingPlayers Retrieves the total number of players receiving streamed content from the publishing point.
StreamingRTSPPlayers Retrieves the total number of players receiving streamed content by using the RTSP protocol.
StreamingUDPPlayers Retrieves the total number of players receiving streamed content by using the User Datagram Protocol (UDP).

Example Code

Imports Microsoft.WindowsMediaServices.Interop
Imports System.Runtime.InteropServices

Private Sub GetCounterArray()

    ' Declare variables.
    Dim Server As WMSServer
    Dim PubPoints As IWMSPublishingPoints
    Dim PubPoint As IWMSPublishingPoint
    Dim CurrentCounters As IWMSPublishingPointCurrentCounters
    Dim aAllCounters As Object
    Dim varValue As Object

Try
    ' Create the WMSServer object.
    Server = New WMSServer()

    ' Retrieve the IWMSPublishingPoints object.
    PubPoints = Server.PublishingPoints

    ' Retrieve information about each publishing point.
    For Each PubPoint In PubPoints

        ' Retrieve a pointer to a list of current statistics
        ' for the publishing point.
        CurrentCounters = PubPoint.CurrentCounters

        ' Retrieve an array of all the counters in this object.
        aAllCounters = CurrentCounters.AllCounters

        ' Process each array element.
        Dim j As Integer, k As Integer
        For j = LBound(aAllCounters) To UBound(aAllCounters)

            For k = LBound(aAllCounters, 2) To UBound(aAllCounters, 2)

                varValue = aAllCounters(j, k)

                If TypeName(varValue) = "String" Then
                    ' TODO: Handle counter names.
                End If

                If TypeName(varValue) = "Integer" Then
                    ' TODO: Handle counter values.
                End If

            Next k

        Next j

    Next

Catch excCom As COMException
    ' TODO: Handle COM exceptions.
Catch exc As Exception
    ' TODO: Handle errors.
Finally
    ' TODO: Clean-up code goes here.
End Try

End Sub

Requirements

Reference: Add a reference to Microsoft.WindowsMediaServices.

Namespace: Microsoft.WindowsMediaServices.Interop.

Assembly: Microsoft.WindowsMediaServices.dll.

Library: WMSServerTypeLib.dll.

Platform: Windows Server 2003 family, Windows Server 2008 family.

  • Note   Some counters are not available in the Windows Server 2003 family.

See Also

Previous Next