[Abu00Raas]

Aly El-Haddad كتب :

كود :

Imports System.Management

Public Class Form1

    Public Sub GetNonWorkingDevices()
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
            For Each queryObj As ManagementObject In searcher.Get()
                Dim LVI As New ListViewItem(New String() {queryObj("Name")})
                ListView1.Items.Add(LVI)
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Sub

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

بيض الله وجهك يا غالي وما قصرت والكود اشتغل

والشكر موصول لكن من ساهم بحل مشكلتي ..

بارك الله فيكم ..