New folder named from CD

Trying to create a script which will make a folder in a static destination, taking the name from a dynamic source (CD-ROM). New folder needs to have same name as CD currently in the tray. I know this should be fairly simple, but I keep getting errors with every revision to the script. Any ideas out there?

Thanks for the help!

This may work, as long as there aren’t multiple ejectable disks mounted on your system (Zip, Jaz, external HDs, DVDs, etc.):

set target_path to (path to desktop) as string
set the_disks to list disks
tell application "Finder"
	repeat with i from 1 to (count of the_disks)
		set this_disk to (item i of the_disks)
		if ejectable of disk this_disk = true then
				make new folder at folder target_path with properties {name:this_disk}
			end try
		end if
	end repeat
end tell