[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

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

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