downloadURLtoComment.scpt

on run {input, parameters}
	repeat with n in input
		set z to (n as alias)
		set n to (info for z)'s name
		tell application "Finder" to set P to z's container as alias
		set zP to POSIX path of (P as text) & n
		try
			set the_URL to do shell script "mdls -name kMDItemWhereFroms" & space & zP & space & "|" & space & "grep  -o '\"'.*'\"'"
			set the_URL to replace_chars(the_URL, "\"", "")
			tell application "Finder"
				set comment of file ((P as text) & n) to the_URL
			end tell
		end try
	end repeat
end run

on replace_chars(this_text, wrongo, righto)
	set AppleScript's text item delimiters to the wrongo
	set the item_list to every text item of this_text
	set AppleScript's text item delimiters to the righto as string
	set this_text to the item_list as string
	set AppleScript's text item delimiters to ""
	return this_text
end replace_chars