Automator and Applescript to export movie with quicktime

Question

I have started a work flow that asks for some files from a folder and then passes the list to an Applescript. So far the script is:
on run {input, parameters}
set output_items to {}
tell application "QuickTime Player"
activate
close every window
end tell
repeat with i in input
tell application "QuickTime Player"
open (i as alias)
-- HERE HERE HERE
close front document
end tell
end repeat
return output_items
end run
What I cannot figure out is how to get the file name excluding the extension where I have "HERE HERE HERE". I want to be able to get Quicktime to export the file to the desktop with the same file name as a Quicktime Movie. I cannot figure out how to do this...any help?

Answer 1

Thanks to both of you for your help.
I have made (well still in the process of finishing it up) a folder action work flow that takes movie files, converts them to an iPhone format and moves them to iTunes.
I would like to give credit where credit is due. If you guys are okay with it, can I add your info (name, email, profile on apple discussions, whatever) to the credits?
Thanks
_Nacho