AppleScript to choose input device (i.e. microphone)

ChooseInputDevice.scpt

# Install SwitchAudioSource tool to make this script work
# brew install switchaudio-osx

# I assigned fn^⌥⌘M hotkey (using BetterTouchTool) to have quick access to input devices

set theInputDevices to paragraphs of (do shell script "/usr/local/bin/switchaudiosource -t input -a | sed -E 's/(.*)\\ \\(input\\)/\\1/'")
set theCurrentDevice to do shell script "/usr/local/bin/switchaudiosource -t input -c"

set theInput to choose from list theInputDevices with prompt "Select Input Device:" default items {theCurrentDevice}

if theInput = false then return

do shell script "/usr/local/bin/switchaudiosource -t input -s '" & theInput & "'"