AppleScript pour enregistrer une vidéo de la webcam

Quelqu'un aux communautés d'Apple m'a aidé à résoudre le problème. Poster une réponse si quelqu'un rencontre le même problème.

set theCurrentDate to current date
set dateTime to short date string of theCurrentDate & space & time string of theCurrentDate
set P to offset of "/" in dateTime
set dateTime to text 1 through (P - 1) of dateTime & "-" & text (P + 1) through -1 of dateTime
set P to offset of "/" in dateTime
set dateTime to text 1 through (P - 1) of dateTime & "-" & text (P + 1) through -1 of dateTime
set theFilePath to "/Users/rohitbhutani/Desktop/movie " & dateTime & ".mov"

tell application "QuickTime Player"
     set newMovieRecording to new movie recording
     tell newMovieRecording
           start
           delay 5
           pause
           save newMovieRecording in POSIX file theFilePath
           stop
           close newMovieRecording
     end tell
end tell