Getting Hardware Information Using Visual Basic.NET and VBScript - Digging further into the motherboard's details
(Page 4 of 4 )
What about the motherboard? After all, it's the heart of the system! Let us dig up even that information. The following VB.NET code should support retrieving some minimum information on your server.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_BaseBoard")
Dim dt As DataTable = globals.getBaseBoardStructure
For Each queryObj As ManagementObject In searcher.Get()
globals.addBaseBoard(dt, queryObj("HostingBoard"), queryObj("Manufacturer"), queryObj("PoweredOn"), queryObj("Product"), queryObj("SerialNumber"), queryObj("Version"))
Next
Me.DataGrid1.DataSource = dt
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Sub
You can achieve the same thing with VBScript as follows:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_BaseBoard",,48)
For Each objItem in colItems
Wscript.Echo "HostingBoard: " & objItem.HostingBoard
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "PoweredOn: " & objItem.PoweredOn
Wscript.Echo "Product: " & objItem.Product
Wscript.Echo "SerialNumber: " & objItem.SerialNumber
Wscript.Echo "Version: " & objItem.Version
Next
As the properties are quite understandable (just from the words), I am not going to explain much. But for further information (or all properties of the class “Win32_BaseBoard”) you can refer to MSDN.
The wrappers for Win32_Processor, Win32_OnBoardDevice and Win32_BaseBoard
In all of the above VB.NET programs, you must have observed some statements like the following:
globals.getOnBoardDeviceStructure
globals.addOnBoardDevice
globals.getProcessorStructure
globals.addProcessorDevice
etc
Those are actually the wrapper in-memory tables; I designed them to work flexibly with those classes (“Win32_Processor”, “Win32_OnBoardDevice” and “Win32_BaseBoard”). The wrappers are defined below.
The following would be the wrapper for “Win32_Processor”:
Public Function getProcessorStructure() As DataTable
Dim dt As New DataTable
dt.Columns.Add (New DataColumn("Availability"))
dt.Columns.Add (New DataColumn("Caption"))
dt.Columns.Add (New DataColumn("CpuStatus"))
dt.Columns.Add (New DataColumn("CurrentClockSpeed"))
dt.Columns.Add (New DataColumn("DeviceID"))
dt.Columns.Add (New DataColumn("Level"))
dt.Columns.Add (New DataColumn("Name"))
dt.Columns.Add (New DataColumn("ProcessorId"))
dt.Columns.Add (New DataColumn("ProcessorType"))
dt.Columns.Add (New DataColumn("SystemName"))
Return dt
End Function
The following would be the wrapper for “Win32_OnBoardDevice”:
Public Function getOnBoardDeviceStructure() As DataTable
Dim dt As New DataTable
dt.Columns.Add (New DataColumn("Description"))
dt.Columns.Add (New DataColumn("DeviceType"))
dt.Columns.Add (New DataColumn("Enabled"))
dt.Columns.Add (New DataColumn("Tag"))
Return dt
End Function
The following would be the wrapper for “Win32_BaseBoard”:
Public Function getBaseBoardStructure() As DataTable
Dim dt As New DataTable
dt.Columns.Add(New DataColumn("HostingBoard"))
dt.Columns.Add(New DataColumn("Manufacturer"))
dt.Columns.Add(New DataColumn("PoweredOn"))
dt.Columns.Add(New DataColumn("Product"))
dt.Columns.Add(New DataColumn("SerialNumber"))
dt.Columns.Add(New DataColumn("Version"))
Return dt
End Function
Any comments, suggestions, bugs, errors, feedback etc. are highly appreciated at jag_chat@yahoo.com.
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
