As a WMI lover, a bit faster code:
 Code:
Dim $objCol, $objItem
$objCol = GetObject("WinMgmts:\\.\root\cimv2").ExecQuery("Select Name FROM Win32_Processor",,48)
For Each $objItem in $objCol
  ? $objItem.Name
Next