21-04-13, 12:30 AM
السلام عليكم ..
أخواني بارك الله فيكم ..
هذا الكود يستخرج أسماء التعاريف في إدارة الأجهزة وتحديداً التعاريف اللي تواجه مشاكل إما معطلة أو لم تُعرف بالاصل
طبعاً أبي أعدل على الكود عشان يظهر لي أسماء التعاريف في ليست فيو
وجزاكم الله خير ..
أخواني بارك الله فيكم ..
هذا الكود يستخرج أسماء التعاريف في إدارة الأجهزة وتحديداً التعاريف اللي تواجه مشاكل إما معطلة أو لم تُعرف بالاصل
كود :
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
طبعاً أبي أعدل على الكود عشان يظهر لي أسماء التعاريف في ليست فيو
وجزاكم الله خير ..