Solved

Parsing Device Manager with VB.Net

Posted on 2008-10-24
3
922 Views
Last Modified: 2012-05-05
I cant seem to get the devices starting with A in the Universal Serial Bus Controller.

i've tired Win32_USBHUB and alot more, but i always get an error , how do i get to the locate with the usb devices?

Thanks.


      Public Sub Detect2()
   
              Me.ListBox1.Items.Clear()
   
       
   
              Dim searcher As New ManagementObjectSearcher("SELECT * FROM  Win32_PnPEntity")
   
              For Each PnPDevice As ManagementObject In searcher.Get()
   
                  If Not PnPDevice("Service") Is Nothing Then
   
                      If PnPDevice("Service").ToString().StartsWith("A") Then
   
                         Me.ListBox1.Items.Add(PnPDevice("Name").ToString())
   
                      End If
 
                  End If
 
              Next PnPDevice
 
          End Sub
0
Comment
Question by:ali678
3 Comments
 
LVL 96

Accepted Solution

by:
Bob Learned earned 250 total points
ID: 22803169
Are you looking for a list of USB devices?


' Add the System.Management.dll reference to the project.

Imports System.Management

Imports System.Collections.Generic
 

Public Class Win32_UsbDevice

    Public Name As String

    Public DeviceID As String

    Public Status As String
 

    Public Shared Function GetList() As List(Of Win32_UsbDevice)
 

        Dim query As String = "Select * From WIN32_USBControllerDevice"
 

        Dim searcher As New ManagementObjectSearcher(query)
 

        Dim results As ManagementObjectCollection = searcher.Get()
 

        Dim list As New List(Of Win32_UsbDevice)
 

        Dim index As Integer = 0
 

        For Each entryCurrent As ManagementObject In results
 

            Dim device As New Win32_UsbDevice
 

            device.Name = entryCurrent("Name")

            device.DeviceID = entryCurrent("DeviceID")

            device.Status = entryCurrent("Status")
 

            list.Add(device)
 

            index += 1
 

        Next entryCurrent
 

        Return list
 

    End Function
 

    Public Overrides Function ToString() As String

        Return String.Format("Name={0}, DeviceID={1}, Status={2}", Name, DeviceID, Status)

    End Function
 
 

End Class

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
Both in life and business – not all partnerships are created equal. As the demand for cloud services increases, so do the number of self-proclaimed cloud partners. Asking the right questions up front in the partnership, will enable both parties …

896 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now