نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

ابتدا مرجع System.Management را به پروژه خودتان اضافه کنید. برای این کار به منوی Project رفته و گزینه ی Add Refrence را انتخاب کنید سپس در پنجره ی جدید باز شده مرجع System.Management را انتخاب و آن را به برنامه اضافه کنید.

سپس کد زیر را در خارج Public Class فرم برنامه قرار دهید:

Imports System.Management

اکنون از کد زیر استفاده کنید:

Dim objMOS As ManagementObjectSearcher
Dim objMOC As Management.ManagementObjectCollection
Dim objMO As Management.ManagementObject


objMOS = New ManagementObjectSearcher("Select * From Win32_Processor")
objMOC = objMOS.Get

For Each objMO In objMOC
 MessageBox.Show("CPU ID = " & objMO("ProcessorID"))
Next

objMOS.Dispose()
objMOS = Nothing
objMO.Dispose()
objMO = Nothing

منبع: http://www.devasp.net