Record Screen with Applescript

record_screen.applescript

on run {input, parameters}
	
	tell application "QuickTime Player" to quit
	
	delay 0.5
	
	tell application "QuickTime Player" to activate
	
	delay 0.5
	
	tell application "System Events"
		activate
		--set UI elements enabled to true
		tell process "QuickTime Player"
			click menu item "New Screen Recording" of menu "File" of menu bar 1
		end tell
	end tell
	
	tell application "QuickTime Player"
		activate
		tell application "System Events" to key code 49
	end tell
	
	return input
end run