WMI event processing Handler

Public   Class eventhandler Class Eventhandler
Public   Sub handleevent () Sub Handleevent ( Byval Sender As   Object , Byval E As Eventarrivedeventargs)

' Get the event object and display it
Dim PD As Propertydata
PD = E. newevent. properties ( " Targetinstance " )

If PD Is   ""   Then
Else
Dim MBO As Managementbaseobject
MBO = PD. Value
' Output the properties.
Console. Writeline (MBO. properties ( " Caption " ). Value & MBO. properties ( " Executablepath " ). Value)

End   If

End sub
End Class

The changed attributes of the WMI event can be passed,