Private Sub btn_Show_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Show.Click Dim USBClass As New ManagementClass("Win32_USBHub") Dim USBCollection As ManagementObjectCollection = USBClass.GetInstances() Dim USB As ManagementObject For Each USB In USBCollection lb_Devices.Items.Add("Name = " & USB("Name").ToString()) lb_Devices.Items.Add("Device ID = " & USB("DeviceID").ToString()) lb_Devices.Items.Add("Status = " & USB("Status").ToString()) Next USB End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)