QuickTime X Applescript

（从Stack Overflow中复制它，因为这可能是一个更好的地方）

寻找帮助（真正要做的）使用脚本/自动机器操作在QT X中打开文件并使用export 720p命令。我不想使用查找器内置的编码功能。使用QT X中的“导出”功能和我正在使用的文件可以解决问题并且不会对文件进行重新编码。我尝试使用automator，但没有“export”操作只有“encode”重新编码文件。

我在字典中看到了命令，但似乎无法使其正常工作。

我已经开始使用此功能，但我一直遇到权限问题。Stack Overflow上的一个人也注意到了同样的问题。

tell application "Finder"
set savePath to "Macintosh HD:Users:WBTVPOST:Desktop"
end tell

tell application "QuickTime Player"
activate
tell application "QuickTime Player" to get the name of front window
set vidName to name
export (document 1) in savePath using settings preset "720p"
end tell

我见过很多脚本帮助，但主要是针对QT 7和Pro。X不是那么多

这可能吗？

提前感谢您的才能和技能，

干杯!

tell application "QuickTime Player"
    set movieName to the name of the front document
    set savePath to a reference to POSIX file ¬
        ("/Users/WBTVPOST/Desktop/" & movieName & ".mov")
    export the front document in savePath using settings preset "720p"
end tell

^{系统信息： AppleScript版本： 2.7 系统版本： 10.13.6}

PS。用户@wowfunhappy绝对正确地说该export命令会重新编码文件。它必须是为了应用预设中包含的任何设置。