AppleScript to choose network locations

ChooseLocation.scpt

# Quick access through fn^⌥⌘N hotkey (BetterTouchTool❤️)

set the_location to (choose from list (my switch_location("", true)) with prompt "Choose a Location to Activate:" OK button name "Activate")
if the_location = false then return
my switch_location(the_location as string, false) --of course you could hard code it: my switch_location("home", false)

on switch_location(the_location, return_locations)
	tell application "System Events"
		tell (item 1 of (processes whose frontmost = true))
			tell menu bar 1
				tell menu bar item "Apple"
					tell menu "Apple"
						tell menu item "Location"
							tell menu "Location"
								if return_locations = true then return name of menu items
								click menu item the_location
							end tell
						end tell
					end tell
				end tell
			end tell
		end tell
	end tell
end switch_location