strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Processor",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_Processor instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Architecture: " & objItem.Architecture
    Wscript.Echo "CpuStatus: " & objItem.CpuStatus
    Wscript.Echo "CurrentClockSpeed: " & objItem.CurrentClockSpeed
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "Family: " & objItem.Family
    Wscript.Echo "L2CacheSize: " & objItem.L2CacheSize
    Wscript.Echo "L2CacheSpeed: " & objItem.L2CacheSpeed
    Wscript.Echo "LoadPercentage: " & objItem.LoadPercentage
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "MaxClockSpeed: " & objItem.MaxClockSpeed
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "ProcessorId: " & objItem.ProcessorId
    Wscript.Echo "ProcessorType: " & objItem.ProcessorType
    Wscript.Echo "SocketDesignation: " & objItem.SocketDesignation
    Wscript.Echo "Stepping: " & objItem.Stepping
    Wscript.Echo "UniqueId: " & objItem.UniqueId
    Wscript.Echo "UpgradeMethod: " & objItem.UpgradeMethod
    Wscript.Echo "Version: " & objItem.Version
Next