How to select specific language in the upper right menu on a Mac with applescript? Big Sur - menu

Question

How can I select a specific (English in my case) language in the upper right menu on a Mac using an apple script.
My code is really slow. It take about 5 sec for it.
Do you have fast and smart ideas?)
tell application "System Events" to ¬
tell application process "TextInputMenuAgent" to ¬
tell menu bar item 1 of menu bar 2
click
click menu item 1 of menu 1
end tell

Answer 1

You might be able to use the standard keyboard shortcut used for selecting keyboard layouts.
The defaults are Ctrl-Space (previous layout) and Alt-Ctrl-Space (next layout), although it wraps around, so if you have only two languages, either will simply toggle the layout.
This can be scripted thusly:
tell application "System Events"
key code 49 using control down
end tell
Please be aware that this shortcut may be disabled (or changed) by a given user in the System Preferences->Keyboard->Shortcuts->Input Source although If you are the only user, this wont be a problem.
Some more ideas may be found at Change OSX keyboard layout("input source") programmatically via terminal or AppleScript?

Answer 2

The example AppleScript code, shown below, was tested in Script Editor and as an Automator Service/Quick Action under macOS Catalina and macOS Big Sur with Language & Region settings in System Preferences set to English (US) — Primary and worked for me without issue1.
1 Assumes necessary and appropriate settings in System Preferences > Security & Privacy > Privacy have been set/addressed as needed.
Example AppleScript code:
ignoring application responses
tell application "System Events" to ¬
click menu bar item 1 of ¬
menu bar 2 of ¬
application process "TextInputMenuAgent"
end ignoring
delay 0.1
do shell script "killall 'System Events'"
delay 0.2
tell application "System Events"
launch
click menu item 1 of ¬
menu 1 of ¬
menu bar item 1 of ¬
menu bar 2 of ¬
application process "TextInputMenuAgent"
end tell
Notes:
In the second tell application "System Events" block:
Change:
click menu item 1 of ¬
To:
The actual name of the menu item, e.g click menu item "U.S." of ¬ or whatever the actual name is.
You can also change the number e.g. 1 to whatever number is appropriate.
As tested, this works for me without issue and, sans the built-in three tenths of a second combined delay, was instantaneous.
If the example AppleScript code shown above does not work for you, then use the Using: cliclick method shown in my answer AppleScript - Can't get rid of delay after click
Or for a more robust solution also using cliclick, a third-party command line utility, the following example AppleScript code can be used for more than the immediate menu item you are trying to click.
Example AppleScript code:
-- # This script works on menu bar items in menu bar 2.
-- # Set the name of the application process and the
-- # name of the target menu item. It will use cliclick
-- # a third-party command line utility to perform the
-- # clicks as a workaround to the 5 second delay bug.
-- #
-- # Note that this requires the target menu item to have
-- # a name that System Events can retrieve properties for.
-- # It is from these properties it position and size is
-- # ascertained in order to calculate where to click it.
-- # User set properties.
property appProcessName : "TextInputMenuAgent"
property menuItemName : "U.S."
property cliclick : "/usr/local/bin/cliclick"
-- # The code below is tokenized and
-- # should not need to modified.
property xPos : missing value
property yPos : missing value
tell application "System Events" to ¬
set thePositionSizeList to ¬
the {position, size} of ¬
menu bar item 1 of ¬
menu bar 2 of ¬
application process ¬
appProcessName
my setXposYposFrom(thePositionSizeList)
my clickAtXposYpos()
tell application "System Events"
set theTargetMenuItemProperties to ¬
properties of ¬
first menu item of ¬
menu 1 of ¬
menu bar item 1 of ¬
menu bar 2 of ¬
application process ¬
appProcessName whose ¬
name is menuItemName
set thePositionSizeList to ¬
the {position, size} of ¬
theTargetMenuItemProperties
end tell
my setXposYposFrom(thePositionSizeList)
my clickAtXposYpos()
-- ## Handlers ##
to setXposYposFrom(thisList)
set xPos to ¬
(item 1 of item 1 of thisList) + ¬
(item 1 of item 2 of thisList) / 2 ¬
as integer
set yPos to ¬
(item 2 of item 1 of thisList) + ¬
(item 2 of item 2 of thisList) / 2 ¬
as integer
end setXposYposFrom
to clickAtXposYpos()
set shellCMD to {¬
cliclick, " -r c:", ¬
xPos, ",", yPos} as string
do shell script shellCMD
end clickAtXposYpos
Note: The example AppleScript code is just that and sans any included error handling does not contain any additional error handling as may be appropriate. The onus is upon the user to add any error handling as may be appropriate, needed or wanted. Have a look at the try statement and error statement in the AppleScript Language Guide. See also, Working with Errors. Additionally, the use of the delay command may be necessary between events where appropriate, e.g. delay 0.5, with the value of the delay set appropriately.

Answer 3

You don't say what OS version you're on but this works on Sierra; no idea whether it works on other versions. Per comments, apparently this should work up to Movaje, but not in Catalina or newer.
You may have to tweak this for your own setup as the status menu items will likely be in a different order than mine. Try setting it to item 1 first and then work your way up to the correct menu.
Of course, it assumes that you have enabled 'Show input menu in menu bar' in System Preferences > Keyboard > Input Sources. The delays are required for it to work but you could probably reduce their duration.
What this does is click the relevant menu and then type the first letters of the desired input. You may have to fiddle around with this depending upon what other items there are in your menu. It can work with a single letter but using a longer string, for example 'eng', helps avoid confusion. It then types the 'return' key to set your choice. Using letters to select allows you to work around whatever order or current setting is.
tell application "System Events"
tell application process "SystemUIServer"
click menu bar item 6 of menu bar 1
delay 0.3
keystroke "e"
delay 0.3
keystroke return
end tell
end tell