Imports System
Imports System.Management
Imports System.Windows.Forms
Namespace WMISample
Public Class MyWMIQuery
Public Overloads Shared Function Main() As Integer
Try
Dim searcher As New ManagementObjectSearcher( _
"root\WMI", _
"SELECT * FROM MS_SystemInformation")
For Each queryObj As ManagementObject in searcher.Get()
Console.WriteLine("-----------------------------------")
Console.WriteLine("MS_SystemInformation instance")
Console.WriteLine("-----------------------------------")
Console.WriteLine("Active: {0}", queryObj("Active"))
Console.WriteLine("BaseBoardManufacturer: {0}", queryObj("BaseBoardManufacturer"))
Console.WriteLine("BaseBoardProduct: {0}", queryObj("BaseBoardProduct"))
Console.WriteLine("BaseBoardVersion: {0}", queryObj("BaseBoardVersion"))
Console.WriteLine("BiosMajorRelease: {0}", queryObj("BiosMajorRelease"))
Console.WriteLine("BiosMinorRelease: {0}", queryObj("BiosMinorRelease"))
Console.WriteLine("BIOSReleaseDate: {0}", queryObj("BIOSReleaseDate"))
Console.WriteLine("BIOSVendor: {0}", queryObj("BIOSVendor"))
Console.WriteLine("BIOSVersion: {0}", queryObj("BIOSVersion"))
Console.WriteLine("ECFirmwareMajorRelease: {0}", queryObj("ECFirmwareMajorRelease"))
Console.WriteLine("ECFirmwareMinorRelease: {0}", queryObj("ECFirmwareMinorRelease"))
Console.WriteLine("InstanceName: {0}", queryObj("InstanceName"))
Console.WriteLine("SystemFamily: {0}", queryObj("SystemFamily"))
Console.WriteLine("SystemManufacturer: {0}", queryObj("SystemManufacturer"))
Console.WriteLine("SystemProductName: {0}", queryObj("SystemProductName"))
Console.WriteLine("SystemSKU: {0}", queryObj("SystemSKU"))
Console.WriteLine("SystemVersion: {0}", queryObj("SystemVersion"))
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Function
End Class
End Namespace
