Script to switch between 2 resolutions

Question

I'm fairly new to OSX (bought my first MAC last summer)
I find myself switching between 2 resolutions on my retina MacBook Pro.
I use 1920x1080 at work (professionaly, I run Windows8 in Fusion6 to manage the IT infrastructure) and 1280x720 at home (in the couch, with half an eye on the TV)
To switch between these 2 resolutions, I do the following steps
- CMD+SPACE
- type "display"
- ENTER
- use the mouse to switch to another resolution
- press OK
Wouldn't it be easyer if I had 1 program that:
- switches to 1920x1080 if the current resolution is 1280x720
- switches to 1280x720 if the current resolution is 1920x1080
A "shortcut" (or whatever it's called in OSX) on the desktop, or even with a key-combination would be great.
Any insights?

Answer 1

That didn't work.
This does
local index1, index2, index3
set index1 to 3 -- 1440 x 900 (Best for Retina)
set index2 to 5 -- 1920 x 1200 (More Space)
-- Launch "System Preferences", open the "Displays" options and change to the "Display" tab
tell application "System Preferences"
  activate
          set the current pane to pane id "com.apple.preference.displays"
          reveal anchor "displaysDisplayTab" of pane id "com.apple.preference.displays"
end tell
local indexToUse
-- Now lets make the necessary changes
tell application "System Events"
          tell window "Color LCD" of application process "System Preferences" of application "System Events"
                    tell tab group 1
  -- Click the "Scaled" radio button
  click radio button "Scaled"
                              tell radio group 1 of group 1
  -- Depending on what scale option/index is current selected, set the appropriate new option/index to use
                                        if (value of radio button index1) is true then
                                                  set indexToUse to index2
                                        else if (value of radio button index2) is true then
                                                  set indexToUse to index1
                                        end if
  -- Click the radio button for the new scale option/index
  click radio button indexToUse
                              end tell
                    end tell
  -- If option/index 1 is selected a warning prompt is displayed, click the OK button to dismiss the prompt
                    if indexToUse = 1 then
  click button "OK" of sheet 1
                    end if
          end tell
end tell
-- Quit "System Preferences"
quit application "System Preferences"
It works, but it is painfully slow