property viewerYes : "Tastaturübersicht einblenden"
property viewerNo : "Tastaturübersicht ausblenden"

property menuExtra : "text input"

tell application "System Events" to ¬
  tell the front menu bar of process "SystemUIServer"
    set menuExtras to ¬
      value of attribute "AXDescription" of menu bar items
    repeat with x from 1 to the length of menuExtras
      if not item x of menuExtras is missing value then ¬
        if item x of menuExtras is menuExtra then exit repeat
    end repeat
    tell menu bar item x
      click
      try
        click menu item viewerYes of the front menu
      on error
        click menu item viewerNo of the front menu
      end try
    end tell
  end tell