🚀 go-pugleaf

Ole, of course beat me to it <g> and likewise his script is probably better,
but since I took the time to do it I might as well post it anyway:

tell application "Finder"
	set list_of_files to document files of folder (choose folder with prompt "Please select the folder that contains the images you want to place")
end tell

tell application "InDesign 2.0.2"
	set myDoc to make document
	--set myDoc to active document
	set myPageHeight to (page height of document preferences of myDoc)
	set myPageWidth to (page width of document preferences of myDoc)
	tell myDoc
		set ruler origin of view preferences to page origin
		repeat with i in list_of_files
			tell last page of myDoc
				set myRectangle to make rectangle with properties {content type:graphic, geometric bounds:{0.0, 0.0, myPageHeight, myPageWidth}}
				tell myRectangle
					place i as string
					fit given center content
					--fit given frame to content
				end tell
			end tell
			if not (count of pages) is equal to (count of list_of_files) then
				tell myDoc
					make page
				end tell
			end if
		end repeat
	end tell
end tell