Local loCPUs, loCPU, lcKey, lcCPUKey, loTreeCollection, loWMI loWMI = Getobject('WinMgmts:') loCPUs = loWMI.ExecQuery('Select * from Win32_Processor') For Each loCPU In loCPUs With loCPU lcinfstr=m.lcinfstr + .Caption lcinfstr=m.lcinfstr + .Name lcinfstr=m.lcinfstr + .ProcessorID lcinfstr=m.lcinfstr + Transform(.ProcessorType) lcinfstr=m.lcinfstr + Transform(.Revision) lcinfstr=m.lcinfstr + .SocketDesignation Endwith Endfor