Public Class Mouse
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_PointingDevice")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function Caption()
For Each getnow As ManagementObject In queryCollection
Caption = getnow("Caption")
Next
End Function
Public Function ConfigManagerUserConfig()
For Each getnow As ManagementObject In queryCollection
ConfigManagerUserConfig = getnow("ConfigManagerUserConfig")
Next
End Function
Public Function Manufacturer()
For Each getnow As ManagementObject In queryCollection
Manufacturer = getnow("Manufacturer")
Next
End Function
Public Function HardwareType()
For Each getnow As ManagementObject In queryCollection
HardwareType = getnow("HardwareType")
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_PointingDevice")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function Caption()
For Each getnow As ManagementObject In queryCollection
Caption = getnow("Caption")
Next
End Function
Public Function ConfigManagerUserConfig()
For Each getnow As ManagementObject In queryCollection
ConfigManagerUserConfig = getnow("ConfigManagerUserConfig")
Next
End Function
Public Function Manufacturer()
For Each getnow As ManagementObject In queryCollection
Manufacturer = getnow("Manufacturer")
Next
End Function
Public Function HardwareType()
For Each getnow As ManagementObject In queryCollection
HardwareType = getnow("HardwareType")
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق