Here is the link. it worked for 9.3.1 and before, however it didn't work for ArcGIS10.
So based on some requists , I recompiled it to 10.
Please download the ArcGIS10 SetMXD Source from here.
Simply hit Register.bat and add the cmdSetMxdSource Command all should be good.