Monitoring USB drive insertion

usbmonitoring.vb

Private Sub weq_DeviceInsertion(sender As Object, e As EventArrivedEventArgs)
     Dim LogDisk = e.NewEvent("TargetInstance")
     Console.WriteLine(LogDisk.Properties("Name").Value)
End Sub
    
Private Sub AddWatcher()
     'Copy weq_Insertion but use __InstanceDeletionEvent instead for Removals
     Dim weq_Insertion As WqlEventQuery = New WqlEventQuery("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_LogicalDisk'")
     w_Insertion = New ManagementEventWatcher(weq_Insertion)
     AddHandler w_Insertion.EventArrived, AddressOf weq_DeviceInsertion
     w_Insertion.Start()
End Sub