WMI 事件处理 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

可以传递出WMI事件变化的属性了，