If we don't explicitly define BoxRatios->Automatic it seems to work:
points = Table[{RandomReal[{0, 10}], RandomReal[{0, 10}],
RandomReal[{0, 10}]}, {100}];
AbsoluteOptions[ListPlot3D[points], BoxRatios]
(* {BoxRatios\[Rule]{1,1,0.4`}} *)
AbsoluteOptions[ListPlot3D[points, BoxRatios -> Automatic], BoxRatios]
(* {BoxRatios\[Rule]Automatic} *)