Code: Select all
Set WMI = GetObject("WinMgmts:")
Set oItems = WMI.InstancesOf("Win32_Processor")
Code: Select all
For Each oItem In oItems
Debug.Print oItem.ProcessorID
Exit For
Next
Code: Select all
Set WMI = GetObject("WinMgmts:")
Set oItems = WMI.InstancesOf("Win32_Processor")
Code: Select all
For Each oItem In oItems
Debug.Print oItem.ProcessorID
Exit For
Next