set aRes to setSountOutputSource("内蔵スピーカー") of me
–> true（設定成功の場合。失敗の場合にはfalseを返す）

–サウンド入力先を設定
on setSountInputSource(aName)
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 3 of tab group 1 of window 1 –「入力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　if aStr = aName then
　　　　　　　　　　set selected of row i of table 1 of scroll area 1 of tab group 1 of window 1 to true
　　　　　　　　　　return true
　　　　　　　　end if
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return false
end setSountInputSource

–サウンド出力先を設定
on setSountOutputSource(aName)
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 2 of tab group 1 of window 1 –「入力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　if aStr = aName then
　　　　　　　　　　set selected of row i of table 1 of scroll area 1 of tab group 1 of window 1 to true
　　　　　　　　　　return true
　　　　　　　　end if
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return false
end setSountOutputSource

–システム環境設定で「サウンド」に表示を切り替える
on displaySoundPaneInSystemPrefs()
　　tell application "System Preferences"
　　　　activate
　　　　set current pane to pane "com.apple.preference.sound"
　　end tell
end displaySoundPaneInSystemPrefs

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set inList to getEverySoundInputName() of me
–> {"内蔵マイク", "ライン入力", "PROPlantronics", "Soundflower (2ch)"}

–サウンド出力先のリストを取得
on getEverySoundOutputName()
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 2 of tab group 1 of window 1 –「出力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　set the end of outList to aStr
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return outList
end getEverySoundOutputName

–サウンド入力先のリストを取得
on getEverySoundInputName()
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 3 of tab group 1 of window 1 –「入力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　set the end of outList to aStr
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return outList
end getEverySoundInputName

–システム環境設定で「サウンド」に表示を切り替える
on displaySoundPaneInSystemPrefs()
　　tell application "System Preferences"
　　　　activate
　　　　set current pane to pane "com.apple.preference.sound"
　　end tell
end displaySoundPaneInSystemPrefs

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> {”com.avatron.AirDisplayPrefPanel”, “com.apple.preferences.Bluetooth”, “com.apple.preference.digihub.discs”, “com.divx.divxprefs”, “com.apple.preference.dock”, “com.apple.preference.expose”, “net.telestream.wmv.prefpane”, “com.growl.prefpanel”, “com.google.MacFUSE”, “com.apple.preference.internet”, “org.perian.PerianPane”, “com.ecamm.printopia”, “com.spanningsync.prefPane”, “com.apple.preference.spotlight”, “com.apple.prefs.backup”, “com.apple.preferences.users”, “com.apple.preference.general”, “com.apple.preference.keyboard”, “com.apple.preference.sound”, “com.apple.preference.speech”, “com.apple.preference.security”, “com.apple.preferences.softwareupdate”, “com.apple.preference.displays”, “com.apple.preference.desktopscreeneffect”, “com.apple.preference.trackpad”, “com.apple.preference.network”, “com.apple.preference.printfax”, “com.apple.preferences.parentalcontrols”, “com.apple.preference.mouse”, “com.apple.preference.universalaccess”, “com.apple.preference.startupdisk”, “com.apple.preferences.sharing”, “com.apple.Localization”, “com.apple.preference.energysaver”, “com.apple.preference.datetime”}

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> {”Air Display”, “Bluetooth”, “CD と DVD”, “DivX”, “Dock”, “Exposé と Spaces”, “Flip4Mac WMV”, “Growl”, “MacFUSE”, “MobileMe”, “Perian”, “Printopia”, “Spanning Sync”, “Spotlight”, “Time Machine”, “アカウント”, “アピアランス”, “キーボード”, “サウンド”, “スピーチ”, “セキュリティ”, “ソフトウェア・アップデート”, “ディスプレイ”, “デスクトップとスクリーンセーバ”, “トラックパッド”, “ネットワーク”, “プリントとファクス”, “ペアレンタルコントロール”, “マウス”, “ユニバーサルアクセス”, “起動ディスク”, “共有”, “言語とテキスト”, “省エネルギー”, “日付と時刻”}

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–>
(*
{”Air Display”, “Bluetooth”, “CD と DVD”, “DivX”, “Dock”, “Exposé と
Spaces”, “Flip4Mac
WMV”, “Growl”, “MacFUSE”, “MobileMe”, “Perian”, “Printopia”, “Spanning
Sync”, “Spotlight”, “Time Machine”, “アカウント”, “アピアランス”, “キーボード”, “サウンド”, “スピーチ”, “セキュリティ”, “ソフトウェア
アップデート”, “ディスプレイ”, “デスクトップと
スクリーンセーバ”, “トラックパッド”, “ネットワーク”, “プリントと
ファクス”, “ペアレンタル
コントロール”, “マウス”, “ユニバーサル
アクセス”, “起動ディスク”, “共有”, “言語とテキスト”, “省エネルギー”, “日付と時刻”}
*)

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に