Public Class pnpentity
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_PnPEntity")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function Caption() As System.Collections.ObjectModel.Collection(Of String)
Caption = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Caption.Add(getnow("Caption"))
Next
End Function
Public Function Manufacturer() As System.Collections.ObjectModel.Collection(Of String)
Manufacturer = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Caption.Add(getnow("Manufacturer"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_PnPEntity")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function Caption() As System.Collections.ObjectModel.Collection(Of String)
Caption = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Caption.Add(getnow("Caption"))
Next
End Function
Public Function Manufacturer() As System.Collections.ObjectModel.Collection(Of String)
Manufacturer = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
Caption.Add(getnow("Manufacturer"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق