التعديل على الكود لإظهاره في ليست فيو - Abu00Raas - 21-04-13
السلام عليكم ..
أخواني بارك الله فيكم ..
هذا الكود يستخرج أسماء التعاريف في إدارة الأجهزة وتحديداً التعاريف اللي تواجه مشاكل إما معطلة أو لم تُعرف بالاصل
كود :
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
طبعاً أبي أعدل على الكود عشان يظهر لي أسماء التعاريف في ليست فيو
وجزاكم الله خير ..
التعديل على الكود لإظهاره في ليست فيو - أحمد النجار - 21-04-13
غير d.name إلى
كود :
ListView1.Items.Add(d.name())
التعديل على الكود لإظهاره في ليست فيو - Abu00Raas - 21-04-13
أخوي أحمد الله يجزاك خير ..
جربت الكود وللأسف ما ضبط ..
وهذي بعض التغييرات في الكود ولاكن المشكلة كل ما اشغل السورس يجي خطأ : لم يتم تعيين مرجع كائن لمثيل كائن وهذا الكود
كود :
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 - 21-04-13
كود :
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 - 21-04-13
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
بيض الله وجهك يا غالي وما قصرت والكود اشتغل
والشكر موصول لكن من ساهم بحل مشكلتي ..
بارك الله فيكم ..
|