Mirror Displays Toggle.scpt

tell application "System Preferences"
	activate
	set current pane to pane "com.apple.preference.displays"
end tell
tell application "System Events" to tell window 1 of process "System Preferences"
	try
		tell tab group 1 to click radio button "Arrangement"
	on error
		return "Only one display available."
	end try
	tell group 1 of tab group 1
		click checkbox "Mirror Displays"
	end tell
end tell