set aPath to retDrivePosixPath() of me
if aPath = false then return

set aWS to current application’s NSWorkspace’s sharedWorkspace()
set aRes to aWS’s unmountAndEjectDeviceAtPath:aPath

on retDrivePosixPath()
　　tell application "Finder"
　　　　set dList to properties of every disk whose startup is false and size > 0
　　　　
　　　　if length of dList > 1 then
　　　　　　–複数の対象ドライブがある場合にはユーザーに選択させる
　　　　　　set dnList to name of every disk whose startup is false and size > 0
　　　　　　–set dnList to name of every disk whose startup is false
　　　　　　set dRes to choose from list dnList
　　　　　　set driveProp to (properties of disk dRes)
　　　　　　set driveURL to URL of driveProp
　　　　else if dList = {} then
　　　　　　return false
　　　　else
　　　　　　set driveURL to URL of first item of dList
　　　　end if
　　　　
　　end tell
　　
　　set dPath to ((current application’s |NSURL|’s URLWithString:driveURL)’s |path|()) as string
　　return dPath
end retDrivePosixPath

tell application "Finder" to eject disk dName