منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - التعديل على الكود لإظهاره في ليست فيو

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

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

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

كود :

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())

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

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

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

كود :

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

كود :

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

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

أحمد النجار

Abu00Raas

Aly El-Haddad

Abu00Raas