Hi
Thanks for your answers :-)
I got this build together, and it seems to do what I want.
Think that I am integrating it in a class and identify the phone from via the DeviceID.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.Clear()
Dim ManageObjSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_PnPEntity")
Dim ManageObj As ManagementObject
For Each ManageObj In ManageObjSearcher.Get()
If Not ManageObj("Service") Is Nothing Then
If ManageObj("DeviceID").ToString().StartsWith("USB") Then
Me.ListBox1.Items.Add(ManageObj("Name").ToString() + " - " + ManageObj("DeviceID").ToString())
End If
End If
Next ManageObj
End Sub
/Graves