Public Class VideoCard
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_VideoController")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function GetName() As String
For Each getnow As ManagementObject In queryCollection
GetName = getnow("name").ToString
Return GetName
Next
End Function
Public Function VideoModeDescription() As String
For Each getnow As ManagementObject In queryCollection
VideoModeDescription = getnow("VideoModeDescription").ToString
Next
End Function
Public Function VideoProcessor() As String
For Each getnow As ManagementObject In queryCollection
VideoProcessor = getnow("VideoProcessor").ToString
Next
End Function
Public Function AdapterRAM() As String
For Each getnow As ManagementObject In queryCollection
AdapterRAM = getnow("AdapterRAM")
Next
End Function
Public Function status() As String
For Each getnow As ManagementObject In queryCollection
status = getnow("status").ToString
Next
End Function
Public Function AdapterCompatibility() As String
For Each getnow As ManagementObject In queryCollection
AdapterCompatibility = getnow("AdapterCompatibility").ToString
Next
End Function
Public Function AdapterDACType() As String
For Each getnow As ManagementObject In queryCollection
AdapterDACType = getnow("AdapterDACType").ToString
Next
End Function
Public Function DriverVersion() As String
For Each getnow As ManagementObject In queryCollection
DriverVersion = getnow("DriverVersion").ToString
Next
End Function
Public Function InfFilename() As String
For Each getnow As ManagementObject In queryCollection
InfFilename = getnow("InfFilename").ToString
Next
End Function
Public Function Monochrome() As String
For Each getnow As ManagementObject In queryCollection
Monochrome = getnow("Monochrome").ToString
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_VideoController")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim queryCollection As ManagementObjectCollection = moss.Get
Public Function GetName() As String
For Each getnow As ManagementObject In queryCollection
GetName = getnow("name").ToString
Return GetName
Next
End Function
Public Function VideoModeDescription() As String
For Each getnow As ManagementObject In queryCollection
VideoModeDescription = getnow("VideoModeDescription").ToString
Next
End Function
Public Function VideoProcessor() As String
For Each getnow As ManagementObject In queryCollection
VideoProcessor = getnow("VideoProcessor").ToString
Next
End Function
Public Function AdapterRAM() As String
For Each getnow As ManagementObject In queryCollection
AdapterRAM = getnow("AdapterRAM")
Next
End Function
Public Function status() As String
For Each getnow As ManagementObject In queryCollection
status = getnow("status").ToString
Next
End Function
Public Function AdapterCompatibility() As String
For Each getnow As ManagementObject In queryCollection
AdapterCompatibility = getnow("AdapterCompatibility").ToString
Next
End Function
Public Function AdapterDACType() As String
For Each getnow As ManagementObject In queryCollection
AdapterDACType = getnow("AdapterDACType").ToString
Next
End Function
Public Function DriverVersion() As String
For Each getnow As ManagementObject In queryCollection
DriverVersion = getnow("DriverVersion").ToString
Next
End Function
Public Function InfFilename() As String
For Each getnow As ManagementObject In queryCollection
InfFilename = getnow("InfFilename").ToString
Next
End Function
Public Function Monochrome() As String
For Each getnow As ManagementObject In queryCollection
Monochrome = getnow("Monochrome").ToString
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق