Agreed overall, just scripting Visio to that degree is amazing. I use LanMapShot (no longer available) to diagram my network, but never tried doing anything with the AD layout.

What version of Visio are you running this on?