tell application "InDesign CS" 
	activate 
	tell document 1 
		 
		set LinkInfoList to {} 
		 
		set TheLinkList to every link 
		repeat with NumLink from 1 to count of TheLinkList 
			set aLink to item NumLink of TheLinkList 
			set TheFilePath to file path of aLink 
			set {hSkale, vSkale, theBounds} to {absolute horizontal scale, absolute vertical scale, visible bounds} of parent of aLink 
			set LinkInfo to {TheFilePath, hSkale, vSkale, theBounds} 
			copy LinkInfo to end of LinkInfoList 
		end repeat 
	end tell 
end tell 
LinkInfoList 

tell application "InDesign CS" 
	activate 
	tell document 1 
		--leere Liste für die gewünschten Informationen 
		set LinkInfoList to {} 
		--Liste aller Verknüpfungen 
		set TheLinkList to every link 
		--Wiederholungsschleife durch die verknüpften Dateien 
		repeat with NumLink from 1 to count of TheLinkList 
			set aLink to item NumLink of TheLinkList 
			--Dateipfad 
			set TheFilePath to file path of aLink 
			--Skalierung + visible bounds des Bildes 
			set {hSkale, vSkale, theBounds} to {absolute horizontal scale, absolute vertical scale, visible bounds} of parent of aLink 
			--visible bounds des rectangles 
			set {theParentBounds} to {visible bounds} of parent of parent of aLink 
			--y- und x-versatz des Bildes im Verhältnis zum Rectangle errechnen 
			set {theY, theX} to {(item 1 of theBounds) - (item 1 of theParentBounds), (item 2 of theBounds) - (item 2 of theParentBounds)} 
			--Werte in einer Liste zusammenfassen 
			set LinkInfo to {TheFilePath, hSkale, vSkale, theY, theX} 
			--... und der Liste aller ... hinzufügen 
			copy LinkInfo to end of LinkInfoList 
		end repeat 
	end tell 
end tell 
LinkInfoList