Set objWMIService = GetObject("winmgmts
\.\root\cimv2")
'tìm các CPU dang chạy của máy
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
'lặp hiển thị ID của từng CPU, nếu muốn chỉ lấy ID 1 CPU thì khỏi lặp
For Each objItem In colItems
MsgBox "Processor Id: " & objItem.ProcessorId
Next