Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add

x = 1
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objApps = objWMIService.ExecQuery("Select * from Win32_Processor")

objExcel.Cells(1, 1) = "Family"
objExcel.Cells(2, 1) = "Architecture"
objExcel.Cells(3, 1) = "Description"
objExcel.Cells(4, 1) = "Data Width"
objExcel.Cells(5, 1) = "Processor Type"
objExcel.Cells(6, 1) = "ExtClock"
objExcel.Cells(7, 1) = "Clock speed"
objExcel.Cells(8, 1) = "Voltage"

For Each objService in objApps
x = x + 1
objExcel.Cells(1, x) = objService.Family
objExcel.Cells(2, x) = objService.Architecture
objExcel.Cells(3, x) = objService.Description
objExcel.Cells(4, x) = objService.DataWidth
objExcel.Cells(5, x) = objService.ProcessorType
objExcel.Cells(6, x) = objService.ExtClock
objExcel.Cells(7, x) = objService.CurrentClockSpeed
objExcel.Cells(8, x) = objService.CurrentVoltage
Next

Clickbank mall, make money
sell software, make money
Hosted magazine site : make money with no website