Finding symbols with a certain attribute

[ghurst (Greg Hurst)]

Is there a nice way to find all symbols with an Orderless Attribute? - This seems like a cumbersome way:

ToExpression /@ 
 Select[Union[ 
   Cases[Trace[Information["System`*"]], 
    ButtonBox[s_, __] :> s, \[Infinity]]], 
  MemberQ[Attributes[#], Orderless] &]

[andyr (Andy Ross)]

How about

With[{symb = Names["System`*"]}, Pick[symb, MemberQ[Attributes[#], Orderless] & /@ symb]]

[tafjord (Oyvind Tafjord)]

Here’s a way

Select[Names["System`*"], MemberQ[ToExpression[#, InputForm, Attributes], Orderless] &]