1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

-- Defines a handler which tells Finder to eject all disks.
to ejectAllDisk()
	try
		tell application "Finder"
			-- Prevent unmounting full disks, those generally are mounted backup snapshots etc.
			eject (every disk whose ejectable is true and free space is not equal to 0)
		end tell
		-- Display a system notification
		display notification "You can now remove your disks safely." with title "Eject all disks" subtitle "Completed"
	on error
		display notification "Failed to eject all disks" with title "Eject all disks" subtitle "Failure"
	end try
end ejectAllDisk

-- this is the entry method.
on run
	try
		-- If the eject process takes longer than 3 seconds, tell the user that the operation is still in progress
		with timeout of 3 seconds
			ejectAllDisk()
		end timeout
	on error
		display notification "Eject is still in progress" with title "Eject all disks" subtitle "Timeout"
		-- Tell Finder to eject all disks again. This enables a success notification when the eject fails or succeeds
		ejectAllDisk()
	end try
end run