strComputer = "."
objWMIService = .OLEObject~GetObject("winmgmts:\\"||strComputer||"\root\CIMV2")
do objItem over objWMIService~ExecQuery("Select * from Win32_Processor")
    say "Address Width:" objItem~AddressWidth
    say "Architecture:" objItem~Architecture
    say "Availability:" objItem~Availability
    say "Caption:" objItem~Caption
    say "Config Manager Error Code:" objItem~ConfigManagerErrorCode
    say "Config Manager User Config:" objItem~ConfigManagerUserConfig
    say "Cpu Status:" objItem~CpuStatus
    say "Creation Class Name:" objItem~CreationClassName
    say "Current Clock Speed:" objItem~CurrentClockSpeed
    say "Current Voltage:" objItem~CurrentVoltage
    say "Data Width:" objItem~DataWidth
    say "Description:" objItem~Description
    say "Device ID:" objItem~DeviceID
    say "Error Cleared:" objItem~ErrorCleared
    say "Error Description:" objItem~ErrorDescription
    say "Ext Clock:" objItem~ExtClock
    say "Family:" objItem~Family
    say "Install Date:" objItem~InstallDate
    say "L2 Cache Size:" objItem~L2CacheSize
    say "L2 Cache Speed:" objItem~L2CacheSpeed
    say "Last Error Code:" objItem~LastErrorCode
    say "Level:" objItem~Level
    say "Load Percentage:" objItem~LoadPercentage
    say "Manufacturer:" objItem~Manufacturer
    say "Max Clock Speed:" objItem~MaxClockSpeed
    say "Name:" objItem~Name
    say "Other Family Description:" objItem~OtherFamilyDescription
    say "PNP Device ID:" objItem~PNPDeviceID
    z = objItem~PowerManagementCapabilities
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Power Management Supported:" objItem~PowerManagementSupported
    say "Processor Id:" objItem~ProcessorId
    say "Processor Type:" objItem~ProcessorType
    say "Revision:" objItem~Revision
    say "Role:" objItem~Role
    say "Socket Designation:" objItem~SocketDesignation
    say "Status:" objItem~Status
    say "Status Info:" objItem~StatusInfo
    say "Stepping:" objItem~Stepping
    say "System Creation Class Name:" objItem~SystemCreationClassName
    say "System Name:" objItem~SystemName
    say "Unique Id:" objItem~UniqueId
    say "Upgrade Method:" objItem~UpgradeMethod
    say "Version:" objItem~Version
    say "Voltage Caps:" objItem~VoltageCaps
end