property fotograf : "Name Name" 
property bildbeschreibung : "" 
 
on run 
	showConfig() 
end run 
 
on showConfig() 
	if bildbeschreibung is "" then 
		modConfig() 
	else 
		 
		set dR to button returned of (display dialog ¬ 
			"Die aktuelle Bildbeschreibung:  
" & bildbeschreibung buttons {"Ändern", "OK"} default button 2 with icon 1) 
		if dR = "Ändern" then 
			modConfig() 
		end if 
		 
	end if 
end showConfig 
 
on modConfig() 
	with timeout of 300 seconds 
		set bildbeschreibung to text returned of (display dialog "Bildbeschreibung:" default answer "") 
	end timeout 
end modConfig 
 
on open these_items 
	 
	repeat with i from 1 to the count of these_items 
		set datei to ((item i of these_items) as alias) 
		set datum to (current date) 
		set ganzerString to (quoted form of (fotograf & " - " & datum & " - " & bildbeschreibung)) 
		try 
			do shell script "exiftool  -IFD0:ImageDescription='ganzerString' -IFD0:Artist='fotograf' -IPTC:Caption-Abstract='ganzerString' -IPTC:By-line='fotograf' -XMP-dc:Description='ganzerString' -XMP-dc:Creator='fotograf' " & quoted form of POSIX path of datei 
		end try 
	end repeat 
end open 

repeat with i from 1 to the count of these_items  
		set datei to ((item i of these_items) as alias)  
		set datum to (current date)  
		set ganzerString to (quoted form of (fotograf & " - " & datum & " - " & bildbeschreibung))  
		try  
			do shell script "exiftool  -IFD0:ImageDescription='ganzerString' -IFD0:Artist='fotograf' -IPTC:Caption-Abstract='ganzerString' -IPTC:By-line='fotograf' -XMP-dc:Description='ganzerString' -XMP-dc:Creator='fotograf' " & quoted form of POSIX path of datei  
		end try  
	end repeat 

set input to "input" 
do shell script "echo " & input & " | tr a-z A-Z" 

do shell script "exiftool -IFD0:ImageDescription=" & ganzerString & " -IFD0:Artist=" & fotograf & " -IPTC:Caption-Abstract=" & ganzerString & " -IPTC:By-line=" & fotograf & " -XMP-dc:Description=" & ganzerString & " -XMP-dc:Creator=" & fotograf & " " & quoted form of POSIX path of datei 

property kuerzel : "bsp." --erscheint im neuen dateinamen nach dem datum 
property bildbeschreibung : "" --wird beim start abgefragt 
property bildname : "" --erscheint im neuen dateinamen nach dem kuerzel 
property stichwort : "" --wird beim start abgefragt 
property fotograf : "Beispiel" 
property copyright : "Beispiel" 
property webadresse : "www.beispiel.de" 
property telnummer : "12345" 
property mail : "beispiel@beispiel.de" 
 
on run 
	showConfig() 
end run 
 
on showConfig() 
	if bildbeschreibung is "" then 
		modConfig() 
	else 
		 
		set dR to button returned of (display dialog ¬ 
			"Die aktuelle Bildbeschreibung:   
" & bildbeschreibung buttons {"Ändern", "OK"} default button 2 with icon 1) 
		if dR = "Ändern" then 
			modConfig() 
		end if 
		 
	end if 
end showConfig 
 
on modConfig() 
	with timeout of 300 seconds 
		set bildbeschreibung to text returned of (display dialog "Bildbeschreibung:" default answer "") 
	end timeout 
end modConfig 
 
on open these_items 
	 
	if bildbeschreibung is "" then 
		modConfig() 
	end if 
	 
	set stichwort to text returned of (display dialog "Bitte  Keyword(s) eingeben: (Separation mit Komma)" default answer "") 
	 
	 
	--neuen Bildnamen abfragen 
	with timeout of 300 seconds 
		set bildname to text returned of (display dialog "Bildname:" default answer "") 
	end timeout 
	 
	--datum erzeugen 
	set d to (current date) 
	set AppleScript's text item delimiters to " " 
	 
	set tagZahl to word 2 of ((current date) as text) 
	if (count of text items of tagZahl) < 2 then 
		set tagZahl to "0" & tagZahl 
	end if 
	 
	set Monat to word 3 of ((current date) as text) 
	 
	 
	set MonatsListe to {January, February, March, April, May, June, July, August, September, October, November, December} 
	 
	repeat with i from 1 to 12 
		 
		if d's month = item i of MonatsListe then 
			set MM to (text -2 thru -1 of ("0" & i) as text) 
			set Zaehlen to count text items of MM as text 
			if Zaehlen = 1 then 
				set MM to "0" & MM 
			end if 
			 
			exit repeat 
		end if 
	end repeat 
	set datum to tagZahl & "." & MM & "." 
	 
	--ordner auf dem schreibtisch erzeugen 
	set BildOrdnerPfad to POSIX path of (path to desktop) & quoted form of "NeueBilder/" 
	set BildOrdner to "mkdir -p " & BildOrdnerPfad 
	do shell script BildOrdner 
	 
	 
	repeat with i from 1 to the count of these_items 
		 
		set datei to ((item i of these_items) as alias) 
		--fuer die nummerierung der dateien 
		if item i of these_items is datei then set position to i 
		 
		--bilddatei auf den desktop in den Ordner NeueBilder kopieren 
		set ZielOrdner to ((path to desktop as string) & "NeueBilder:") as alias 
		tell application "Finder" to duplicate file datei to folder ZielOrdner with replacing 
		set neuerdateiName to datum & kuerzel & bildname & (position as string) & ".jpg" 
		set AppleScript's text item delimiters to ":" 
		set filePath to datei as Unicode text 
		set oldName to text item -1 of filePath 
		tell application "Finder" to set name of file oldName of folder ZielOrdner to neuerdateiName 
		set NeueDatei to (((ZielOrdner as string) & neuerdateiName) as alias) 
		 
		 
		set ganzerString to (quoted form of (neuerdateiName & " - " & bildbeschreibung)) 
		try 
			do shell script "exiftool -IFD0:ImageDescription=" & quoted form of ganzerString & " -IFD0:Artist=" & quoted form of fotograf & " -IFD0:Copyright=" & quoted form of copyright & " -IPTC:Caption-Abstract=" & quoted form of ganzerString & " -IPTC:By-line=" & quoted form of fotograf & " -IPTC:Writer-Editor=" & quoted form of fotograf & " -IPTC:By-LineTitle='Bildjournalist' -IPTC:Credit=" & quoted form of "Credit" & "  -IPTC:ObjectName=" & quoted form of bildname & " -IPTC:City='Aachen'  -IPTC:Province-State='Nordrhein-Westfalen' -IPTC:Country-PrimaryLocationName='DEU Deutschland' -IPTC:Keywords=" & quoted form of stichwort & " -IPTC:CopyrightNotice=" & quoted form of copyright & " -XMP-dc:Description=" & quoted form of ganzerString & " -XMP-dc:Creator=" & quoted form of fotograf & " -XMP-dc:Rights=" & quoted form of copyright & " -XMP-dc:Title=" & quoted form of bildname & " -XMP-dc:Subject=" & quoted form of stichwort & " -XMP-photoshop:AuthorsPosition=" & quoted form of "Bildjournalist" & " -XMP-photoshop:CaptionWriter=" & quoted form of fotograf & " -XMP-photoshop:City='Aachen' -XMP-photoshop:State='Nordrheinwestfalen' -XMP-photoshop:Country=" & quoted form of "DEU Deutschland" & " -XMP-photoshop:Credit=" & quoted form of "Credit" & " -XMP-photoshop:Source=" & quoted form of "Source" & " -XMP-xmpRights:WebStatement=" & quoted form of webadresse & " -XMP-iptcCore:CreatorWorkTelephone=" & quoted form of telnummer & " -XMP-iptcCore:CreatorWorkEmail=" & quoted form of mail & " -XMP-iptcCore:CreatorCity='Aachen' -XMP-iptcCore:Address=" & quoted form of "eine strasse" & " -Photoshop:URL=" & quoted form of webadresse & " " & quoted form of POSIX path of NeueDatei 
		end try 
		try 
			set original to (((NeueDatei as string) & "_original") as alias) 
			tell application "Finder" to delete file original 
		end try 
		 
	end repeat 
	say "finished" 
	display dialog "Haben fertig ;-)" giving up after 5 
end open 

if Zaehlen = 1 then 
  set MM to "0" & MM 
end if 

--datum erzeugen  
set d to current date 
set DD to text -2 thru -1 of ("0" & word 2 of (d as string)) 
set Mon to text 1 thru 3 of (d's month as string) 
set m to offset of Mon in "JanFebMarAprMayJunJulAugSepOctNovDec" 
set MM to text -2 thru -1 of ("0" & (((m + 2) / 3) as integer) as string) 
set datum to DD & "." & MM & "."