Quicktime AutoRecord request

qt_rec_req.script

-- set the path as POSIX path
set thePath to "Macintosh HD:Users:userName:Documents:"
-- set timeStamp
set theDate to current date
set dateStamp to the year of theDate & "-" & the month of theDate & "-" & the day of theDate & " " & hours of theDate & "-" & minutes of theDate
-- set movieName
set movieName to dateStamp & ".mov"
-- set final path and make it a file reference
set filePath to thePath & movieName
set f to a reference to file filePath
-- let quicktime do it's job
tell application "QuickTime Player"
	set newMovieRecording to new movie recording
	tell newMovieRecording
		start
		delay 3 --(seconds)
		pause
		save newMovieRecording in f
		stop
		close newMovieRecording
	end tell
end tell