AppleScript更改默认Web浏览器

我希望能够使用AppleScript将Mac的默认Web浏览器更改为Google Chrome。这是我的想法：

set result to button returned of (display dialog "Would you like to change to Chrome?")
if result = "OK" then
    do shell script ("open -a 'Google Chrome' --args --make-default-browser")
else
    display dialog "No change in the default web browser"
end if

但是，我总是会弹出这个窗口，因为某些原因我无法以编程方式处理。我想选择“使用Chrome”。

我知道一些改变它的手动方法，例如在系统偏好设置的“常规”选项卡中，但我需要一些可靠的东西，比如这个shell命令。
如何通过AppleScript完成上述操作？

您可以通过UI脚本处理确认窗口。这将按“使用”按钮：

try
  tell application "System Events"
    tell application process "CoreServicesUIAgent"
      tell window 1
        tell (first button whose name starts with "use")
          perform action "AXPress"
        end tell
      end tell
    end tell
  end tell
end try

资源