Getting Hardware Info in VB.Net

Function for getting hardware specific info such as CPU ID, Motherboard Serial Number, Drive Serial Numbers and MAC address.

'*******************************************************************************************



Imports System
Imports System.Management


Public Class clsComputerInfo


Friend Function GetProcessorId() As String

 

Dim strProcessorId As String = String.Empty

 

Dim query As New SelectQuery("Win32_processor")

 

Dim search As New ManagementObjectSearcher(query)

 

Dim info As ManagementObject

 


For Each info In search.Get()
 
 

strProcessorId = info("processorId").ToString()

 

Next

 

Return strProcessorId


 

End Function
 
 





Friend Function GetMACAddress() As String





Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")


Dim moc As ManagementObjectCollection = mc.GetInstances()


Dim MACAddress As String = String.Empty


For Each mo As ManagementObject In moc



If (MACAddress.Equals(String.Empty)) Then


If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()



mo.Dispose()
 

End If

MACAddress = MACAddress.Replace(":", String.Empty)


Next


Return MACAddress


End Function


Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String





Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))


disk.Get()


Return disk("VolumeSerialNumber").ToString()

End Function


Friend Function GetMotherBoardID() As String





Dim strMotherBoardID As String = String.Empty


Dim query As New SelectQuery("Win32_BaseBoard")


Dim search As New ManagementObjectSearcher(query)


Dim info As ManagementObject


For Each info In search.Get()



strMotherBoardID = info("SerialNumber").ToString()



Next


Return strMotherBoardID


End Function




End Class

'*******************************************************************************************