LAN上のHDDをマウントする v2

AppleScript名：LAN上のHDDをマウントする v2

–SMB経由でマウント
set userAccount to "maro" –ユーザー名（環境に応じて書き換え）
set userPass to "xxxxxx" –パスワード（環境に応じて書き換え）
set aMachine to "smb://MBA11._smb._tcp.local/Macintosh HD" –11インチMacBook Air (10.9.2)でSMBのみ有効にしてテスト
mountVolume(aMachine, userAccount, userPass) of me –通常実行

–AFP経由でマウント
set userAccount to "maro" –ユーザー名（環境に応じて書き換え）
set userPass to "xxxxxx" –パスワード（環境に応じて書き換え）
set aMachine to "afp://MBA13._afpovertcp._tcp.local/Macintosh SSD" –13インチMacBook Air (10.7.5)でAFPとSMBの両方を有効にしてテスト
mountVolumeAsync(aMachine, userAccount, userPass) of me –非同期実行

–指定のネットワーク上のディスクをマウントする
on mountVolume(aMachine, userAccount, userPass)
　　
　　try
　　　　with timeout of 100 seconds
　　　　　　mount volume aMachine as user name userAccount with password userPass
　　　　end timeout
　　on error
　　　　return false
　　end try
　　
　　return true
　　
end mountVolume

–指定のネットワーク上のディスクをマウントする（非同期実行）
on mountVolumeAsync(aMachine, userAccount, userPass)
　　
　　try
　　　　ignoring application responses
　　　　　　mount volume aMachine as user name userAccount with password userPass
　　　　end ignoring
　　on error
　　　　—
　　end try
　　
end mountVolumeAsync