[kslawy]

هذا الكود لعرض المنافذ الموجودة بالحاسوب

أضف أولاً المرجع System.Management ثم استورده أعلى الفورم

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try


            Dim con As ConnectionOptions = New ConnectionOptions
            Dim mach As String = System.Environment.MachineName
            Dim mss As ManagementScope = New ManagementScope("\\" & mach & "\root\cimv2", con)
            Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_USBController")
            Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
            Dim qc As ManagementObjectCollection = moss.Get


            For Each queryObj As ManagementObject In qc
                MsgBox(queryObj("Name").ToString)
            Next


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub

الكود أعلاه سيأتي بأسماء الـ usb المحاطة باللون الأحمر في الصورة أدناه :
[ATTACH=CONFIG]3464[/ATTACH]
للحصول علي أسماء الـ usb المحاطة باللون الأخضر فقط غير جملة الاتصال من :

كود :

[color=#b22222]"SELECT * FROM Win32_USBController"[/color]

إلي :

كود :

[color=#b22222]"SELECT * FROM Win32_USBHub"[/color]

والله المستعان

****
***
**
*