Mendapatkan CPU ID caranya sungguh mudah karena telah dibantu oleh .NET Framework, yang saya perlihatkan disini adalah source code dalam bahasa Visual Basic dan C#.
Fungsi GetCpuId C#
private static string GetCpuId() {
string cpuinfo = string.Empty;
ManagementObjectSearcher searcher = new ManagementObjectSearcher("select processorid from win32_processor");
foreach (ManagementObject mo in searcher.Get()) {
if (cpuinfo == string.Empty)
cpuinfo = mo.Properties["processorid"].Value.ToString();
else
break;
}
return cpuinfo;
}
Fungsi GetCpuID Visual Basic
Private Shared Function GetCpuId() As String
Dim cpuinfo As String = String.Empty
Dim searcher As New ManagementObjectSearcher("select processorid from win32_processor")
For Each mo As ManagementObject In searcher.[Get]()
If cpuinfo = String.Empty Then
cpuinfo = mo.Properties("processorid").Value.ToString()
Else
Exit For
End If
Next
Return cpuinfo
End Function
Tentu jangan lupa tampilkan nilai kembali dari fungsi GetCpuId, yaitu cpuinfo ke dalam MessageBox atau Label.
Yth P.Chandra,
Saya mencoba menjalankan kode yg Bp cotohkan dgn VB6, tapi tidak berfungsi, dimana salahnya ?. Saya lampirkan kode VB6 yg saya gunakan. Thanks atas infonya.
Public cpuinfo As String
—————————————-
Private Function GetCpuId() As String
cpuinfo = “”
Dim searcher As New ManagementObjectSearcher(“select processorid from win32_processor”)
For Each mo As ManagementObject In searcher.[Get]()
If cpuinfo = “” Then
cpuinfo = mo.Properties(“processorid”).Value.ToString()
Else
Exit For
End If
Next
Return cpuinfo
End Function
——————————————————–
Private Sub cmdGetCPUID_Click()
Me.txCPUID = cpuinfo
End Sub
Sayang sekali potongan kode di atas adalah untuk Visual Basic .NET, bukan untuk Visual Basic 6. Saya tidak menyebutnya Visual Basic .NET/VB.NET karena dari pihak microsoftnya sendiri menyarankan demikian. Bila potongan kode tersebut spesifik untuk Visual Basic 6 akan terlihat dari kategori dan judul artikel.