Hi ..
When running a message appears
Error message : NullReferenceException was unhandled
code
When running a message appears
Error message : NullReferenceException was unhandled
code
Code:
Public Shared Function GetNonWorkingDevices()
Dim pc As String = "."
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
Dim list As ListViewItem
list.ListView.Items.Add(d.name())
Next
End Function