Function GetCPUInfo()
  On Error Resume Next
  Dim ObjItem  As Object
  Dim ColItems As Object
  Set ColItems = GetObject("WinMgmts:").InstancesOf("Win32_Processor")
  For Each ObjItem In ColItems
      With ObjItem
           Debug.Print "Name:" & .Name
           Debug.Print "Role:" & .Role
           Debug.Print "Level:" & .Level
           Debug.Print "Status:" & .Status
           Debug.Print "Family:" & .Family
           Debug.Print "Caption:" & .Caption
           Debug.Print "Version:" & .Version
           Debug.Print "DeviceID:" & .DeviceID
           Debug.Print "ExtClock:" & .ExtClock
           Debug.Print "Revision:" & .Revision
           Debug.Print "Stepping:" & .Stepping
           Debug.Print "UniqueId:" & .UniqueId
           Debug.Print "CpuStatus:" & .CpuStatus
           Debug.Print "DataWidth:" & .DataWidth
           Debug.Print "SystemName:" & .SystemName
           Debug.Print "StatusInfo:" & .StatusInfo
           Debug.Print "Description:" & .Description
           Debug.Print "PNPDeviceID:" & .PNPDeviceID
           Debug.Print "InstallDate:" & .InstallDate
           Debug.Print "L2CacheSize:" & .L2CacheSize
           Debug.Print "ProcessorId:" & .ProcessorId
           Debug.Print "VoltageCaps:" & .VoltageCaps
           Debug.Print "Manufacturer:" & .Manufacturer
           Debug.Print "ErrorCleared:" & .ErrorCleared
           Debug.Print "L2CacheSpeed:" & .L2CacheSpeed
           Debug.Print "AddressWidth:" & .AddressWidth
           Debug.Print "Architecture:" & .Architecture
           Debug.Print "Availability:" & .Availability
           Debug.Print "UpgradeMethod:" & .UpgradeMethod
           Debug.Print "ProcessorType:" & .ProcessorType
           Debug.Print "LastErrorCode:" & .LastErrorCode
           Debug.Print "MaxClockSpeed:" & .MaxClockSpeed
           Debug.Print "CurrentVoltage:" & .CurrentVoltage
           Debug.Print "LoadPercentage:" & .LoadPercentage
           Debug.Print "ErrorDescription: " & .ErrorDescription
           Debug.Print "SocketDesignation:" & .SocketDesignation
           Debug.Print "CreationClassName:" & .CreationClassName
           Debug.Print "CurrentClockSpeed:" & .CurrentClockSpeed
           Debug.Print "OtherFamilyDescription:" & .OtherFamilyDescription
           Debug.Print "ConfigManagerErrorCode:" & .ConfigManagerErrorCode
           Debug.Print "SystemCreationClassName:" & .SystemCreationClassName
           Debug.Print "ConfigManagerUserConfig:" & .ConfigManagerUserConfig
           Debug.Print "PowerManagementSupported:" & .PowerManagementSupported
           Debug.Print "PowerManagementCapabilities:" & .PowerManagementCapabilities
      End With
  Next
End Function