Jan 30, 2013

USB HDDなどをマウント/アンマウントするAppleScript

Thunderbolt Displayに接続してあるHDDをアンマウントするのに、Desktopのアイコンを探して○○とか、Finder開いてサイドバーから△△とか面倒すぎる。

AppleScriptでUSB HDDなどをトグルでマウント/アンマウントする(アンマウントした場合にはついでにスリープもする)プログラムを書いてみたけどこんなんでいいの?

-- Eject and Sleep
-- ejectableなディスクをアンマウントしてスリープ
-- アンマウント状態で実行するとマウント
set diskNames to {"HD-PATU3", "Time Machine"}

tell application "Finder"
set disksToEject to {}
repeat with diskName in diskNames
if disk diskName exists then
set aDisk to (disk diskName)
if aDisk is ejectable then
set the end of disksToEject to aDisk
end if
do shell script "diskutil list | grep '" & diskName & "'"
do shell script "diskutil mount '" & diskName & "'"
on error number 1
-- skip
end try
end if
end repeat
if (count disksToEject) > 0 then
repeat with aDisk in disksToEject
eject aDisk
end try
end repeat

set userCanceled to false
set sleepAlertResult to display alert "コンピュータを今すぐスリープしてもよろしいですか?" message "何も操作をしないと、コンピュータは 10 秒で自動的にスリープします。" buttons {"キャンセル", "スリープ"} default button "スリープ" cancel button "キャンセル" as warning giving up after 10
on error number -128
set userCanceled to true
end try
if not userCanceled then
if (gave up of sleepAlertResult) or (button returned of sleepAlertResult is "スリープ") then
end if
end if

end if
end tell


About Me

My Photo


Total Pageviews


Copyright 2012 Ogawa::Buzz | Powered by Blogger
Design by Web2feel | Blogger Template by NewBloggerThemes.com