Currently I am looking for the method of monitoring MMS.
Such as mms://192.167.31.14/shtv
Can you give me a good one?
thanks .
How to monitor the mms
Stone II,
I don't know of any way to monitor the mms stream for audio or vidèo (why, if spelled correctly does vidèo show up as a dash -
), but I did stumble upon this on the MSDN site.
I don't know of any way to monitor the mms stream for audio or vidèo (why, if spelled correctly does vidèo show up as a dash -

I don't even know what this does, but I bet you can find more if you try!The simplest way to capture exposed WMI events is through the WMI scripting API. The following Visual Basic Scripting Edition (VBScript) example uses SwbemServices and SWbemSink to query for events and display event properties.
VBScript Example
' Declare objects.
Dim Server As WMSServer
Dim Services As SWbemServices
Dim WithEvents EventSink As SWbemSink
Dim strQuery As String
Private Sub Form_Load()
' Initialize server.
Set Server = CreateObject("WMSServer.Server")
' Create event sink.
Set EventSink = New SWbemSink
' Get services.
Set Services = GetObject( _
"winmgmts:{impersonationLevel=impersonate}!\\" _
& Server.Name & "\Root\cimv2")
' Set individual queries for each event class that you want to log.
strQuery = "select * from WMS_PublishingPoint_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
strQuery = "select * from WMS_Server_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
strQuery = "select * from WMS_Client_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
strQuery = "select * from WMS_LimitChanged_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
strQuery = "select * from WMS_LimitHit_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
strQuery = "select * from WMS_Plugin_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
strQuery = "select * from WMS_Cache_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
strQuery = "select * from WMS_Playlist_Event"
Services.ExecNotificationQueryAsync EventSink, strQuery
End Sub
Private Sub EventSink_OnObjectReady( _
ByVal objWbemObject As WbemScripting.ISWbemObject, _
ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
' Catch event.
strEventText = objWbemObject.GetObjectText_
End Sub
