IWMSServerCurrentCounters.ConnectionQueue (Visual Basic .NET)

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

Private Sub CountQueue()

    ' Declare variables.
    Dim Server As WMSServer
    Dim CurrentCounters As IWMSServerCurrentCounters
    Dim iValue As Integer

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

    ' Retrieve a list of current statistics
    ' for the server.
    CurrentCounters = Server.CurrentCounters

    ' Retrieve the current number of clients waiting to connect.
    iValue = CurrentCounters.ConnectionQueue

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