I find it increasingly frustrating that there is not enough data on
benchmark timing for Mathematica 5.2, though the benchmark is built in.
So why don't you copy these lines to a new notebook on your computer;
run it and copy the result (only the last cell) into your reply to this
posting? (You may want to make changes to variable bm2 as appropriate.)
Needs["Utilities`Benchmark`"]
bm1 = Benchmark[] /. InputForm -> Identity;
bm2 = {
"Processor" -> "Pentium IV 3 GHz",
"Memory" -> "2 G",
"Operating System" -> "Windows XP professional, SP 2",
"$Slaves" -> $Slaves
};
Join[bm1,bm2]