[Abu00Raas]

السلام عليكم ..

أخواني بارك الله فيكم ..

هذا الكود يستخرج أسماء التعاريف في إدارة الأجهزة وتحديداً التعاريف اللي تواجه مشاكل إما معطلة أو لم تُعرف بالاصل

كود :

Public Shared Function GetNonWorkingDevices()
        Dim pc As String = "." 'local
        Dim wmi As Object = GetObject("winmgmts:\\" & pc & "\root\cimv2")
        Dim devices As Object = wmi.ExecQuery("Select * from Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
        For Each d As Object In devices
            d.name()

        Next
    End Function

طبعاً أبي أعدل على الكود عشان يظهر لي أسماء التعاريف في ليست فيو

وجزاكم الله خير ..

[أحمد النجار]

غير d.name إلى

كود :

ListView1.Items.Add(d.name())

[Abu00Raas]

أخوي أحمد الله يجزاك خير ..

جربت الكود وللأسف ما ضبط ..

وهذي بعض التغييرات في الكود ولاكن المشكلة كل ما اشغل السورس يجي خطأ : لم يتم تعيين مرجع كائن لمثيل كائن وهذا الكود

كود :

Public Shared Function 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 list As ListViewItem

                list.ListView.Items.Add(queryObj("Name"))
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Function

[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

[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

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

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

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