WMIEventWatcher Class

Public Class WMIEventWatcher
	Inherits ManagementEventWatcher

Dim instance As WMIEventWatcher

public ref class WMIEventWatcher : public ManagementEventWatcher

type WMIEventWatcher = 
    class
        inherit ManagementEventWatcher
    end

No code example is currently available or this language may not be supported.

Imports System.Management

Public NotInheritable Class Form1 : Inherits Form

    Private WithEvents EventWatcher As New WMIEventWatcher("Win32_VolumeChangeEvent", withinInterval:=1)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim connOptions As New ConnectionOptions With {
            .Impersonation = ImpersonationLevel.Impersonate,
            .EnablePrivileges = True
        }

        Dim scope As New ManagementScope(String.Format("\\{0}\ROOT\CIMV2", Environment.MachineName), connOptions)
        scope.Connect()

        Me.EventWatcher.Scope = scope
        Me.EventWatcher.Start()
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
        Me.EventWatcher.Dispose()
    End Sub

    Private Sub EventWatcher_EventArrived(ByVal sender As Object, ByVal e As EventArrivedEventArgs) _
    Handles EventWatcher.EventArrived

        Dim driveName As String = CStr(e.NewEvent.Properties("DriveName").Value)
        Dim eventType As Integer = CInt(e.NewEvent.Properties("EventType").Value)

        Console.WriteLine(String.Format("Drive Name: {0}", driveName))
        Console.WriteLine(String.Format("Event Type: {0}", eventType))

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.