tell application "Finder"
activate
tell application "System Events"
    tell process "Finder"
        click menu item "Merge All Windows" of menu "Window" of menu bar 1
    end tell
end tell