com.apple.CD-DVD-Settings.extensionシステム設定を開く

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

###システム設定を開いて

tell application "System Settings" to launch

###起動確認１０秒

repeat 10 times

  tell application "System Settings" to activate

  ###前面のアプリケーション

  tell application "System Events"

    set strAppName to (name of first application process whose frontmost is true) as text

  end tell

  ####起動確認できたら抜ける

  if strAppName is "System Settings" then

    exit repeat

  else

    ###起動に時間がかかっている場合は１秒まつ

    delay 1

  end if

end repeat

####パネルオープン確認

tell application "System Settings"

  activate

  repeat 10 times

    ####ウィンドウの名前を取得する

    set strWindowName to (name of front window) as text

    ###取得できなかったら１秒待つ

    if strWindowName is "" then

      delay 1

      ###取得できたらリピート抜ける

    else if strWindowName is "外観" then

      exit repeat

      ###すでに起動済みで外観以外を開いている場合

    else

      exit repeat

    end if

  end repeat

end tell

tell application "System Settings"

  try

reveal anchor "Main" of pane id "com.apple.CD-DVD-Settings.extension"

  on error

return "CD/DVDデバイスが接続されていないと開けません"

  end try

end tell

tell application "System Settings" to activate

####パネルオープン確認

tell application "System Settings"

  ###起動確認　最大１０秒

  repeat 10 times

    activate

    ####ウィンドウの名前を取得する

    set strWindowName to (name of front window) as text

    ###取得できなかったら１秒待つ

    if strWindowName is "" then

      delay 1

      ###取得できたらリピート抜ける

    else if strWindowName is "CDとDVD" then

      exit repeat

      ###すでに起動済みで外観以外を開いている場合

    else

      delay 1

    end if

  end repeat

end tell

---