External Events Example
Previous | Next |
External Events Example
The following Visual Basic Scripting Edition (VBScript) example illustrates how to retrieve an event notice indicating that a publishing point has been created.
Dim WithEvents eventSink As SWbemSink Private Sub eventSink_OnObjectReady(ByVal obj As WbemScripting.ISWbemObject, ByVal ctx As WbemScripting.ISWbemNamedValueSet) Dim Prop as SWbemPropertySet Set Prop = obj.Properties_ Call MsgBox "Administrator " + Prop("Administrator").Value +_ "created publishing point '" +_ Prop("PublishingPointName").Value + "' at " +_ Prop("Time") End Sub Private Sub Form_Load() Set eventSink = New SWbemSink Set Services = GetObject ("WINMGMTS:{impersonationLevel=impersonate}! _ \\.\Root\cimv2") Services.ExecNotificationQueryAsync eventSink, "select * _ from WMS_Publishingpoint_Event Where SubEvent = ""Add""" End Sub
The following example illustrates how to select only play events for content named Movie.wmv and display the name of the client and the IP address.
set events = GetObject ("winmgmts:{impersonationLevel=impersonate}! _ \\.\Root\cimv2"). _ ExecNotificationQuery ("select * from WMS_Client_Event _ where SubEvent = ""Play"" And Filename = ""Movie.wmv""") do set playevent = events.nextevent if err <> 0 then WScript.Echo Err.Number, Err.Description, Err.Source Exit Do else WScript.Echo "Client at " + playevent.Properties_("ClientIP").value _ + " asked to play " + playevent.Properties_("Title") end if loop
See Also
Previous | Next |