VB NET : Get Processor ID, HDD ID, MotherBoard ID, dan Mac Address ( Get Hardware Info)

Kali ini penulis akan mencoba me-share cara untuk mendapatkan hardware info pada komputer . untuk kali ini kita akan mencoba mendapatkan ID Processor, ID hardisk, ID Motherboard dan Mac address.

Langsung saja...
1. Buka new Project
2. Add Reference  : System.Management
3. Tambahkan 4 textbox, beri name masing-masing : txtCPU, txtHDD, txtMB, dan txtMAC
4. Tambahkan 1 button
5. Ketik atau copy paste source berikut :

Imports System.Management
Imports System
Imports System.Text

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hw As New clsComputerInfo

txtCPU.Text = hw.GetProcessorId()
txtHDD.Text = hw.GetVolumeSerial("C")
TxtMB.Text = hw.GetMotherBoardID()
TxtMAC.Text = hw.GetMACAddress()
End Sub
End Class


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

Silahkan di explore dan dikembangkan lebih jauh lagi :D