Extracción de datos WhereFroms a un archivo

Pruebe esto en una acción de ejecución de Applescript:

    on run {input, parameters}
    set filePath to "/Users/UserName/Documents/WhereFroms.txt"

    repeat with i from 1 to number of items in input
        set this_item to item i of input
        tell application "Finder" to set displayedname to displayed name of this_item
        set this_item to this_item as string
        set this_item to POSIX path of this_item as string
        set theFroms to (do shell script "mdls -name kMDItemWhereFroms " & quoted form of this_item)
        set allFroms to (do shell script "echo " & quoted form of theFroms & "| cut -d'(' -f2- |cut -d')' -f1 ")--strip crap

        set WhereFroms to "File: " & displayedname & return & "From:  " & (allFroms & return & return)
        do shell script "echo " & quoted form of WhereFroms & "  >> " & quoted form of filePath
    end repeat

end run