I posted this some time ago - an indirect route and may be broken by applescript changes - I haven't used it for a while.

Tell me if it isn't working - I will look for a moment to mend it.