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

–> {1920, 1200}

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

–> {”1920″, “1200″}

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

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

–17インチMacBook Pro本体ディスプレイ（Main） ＋ 外付け24インチモニタ（1920 x 1080）（Sub）の場合
set aRes to retDisplayResolution() of me
–> {{1920, 1200}, {1920, 1080}}

–17インチMacBook Pro本体ディスプレイ（Sub） ＋ 外付け24インチモニタ（1920 x 1080）（Main）の場合
set aRes to retDisplayResolution() of me
–> {{1920, 1200}, {1920, 1080}}

–モニタ解像度を取得。複数モニタ接続時にはリストで列挙
on retDisplayResolution()
　　
　　set sRes to do shell script “/usr/sbin/system_profiler SPDisplaysDataType | grep Resolution”
　　
　　set sList to paragraphs of sRes
　　set resList to {}
　　
　　repeat with i in sList
　　　　set j to contents of i
　　　　set x1 to word 2 of j as number
　　　　set y1 to word 4 of j as number
　　　　set the end of resList to {x1, y1}
　　end repeat
　　
　　return resList
　　
end retDisplayResolution

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

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

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

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

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

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

–現在実行中のユーザーの権限を得る（管理者か、それ以外か） 10.4および10.5以降両用
–管理者だとtrueが、それ以外だとfalseが返る
on getCurUsersPrivileges()
　　set aVer to system attribute "sys2" –OSメジャーバージョンを取得する（例：Mac OS X 10.6.4→6）
　　
　　set current_user to (do shell script "whoami") –実行中のユーザー名を取得
　　
　　if aVer > 4 then
　　　　–Mac OS X 10.5以降の処理
　　　　set adR to (do shell script "/usr/bin/dsmemberutil checkmembership -U " & current_user & " -G admin users")
　　　　
　　　　if adR = "user is a member of the group" then
　　　　　　return true
　　　　else
　　　　　　return false
　　　　end if
　　　　
　　else
　　　　–Mac OS X 10.4までの処理
　　　　set admin_users to (do shell script "/usr/bin/niutil -readprop . /groups/admin users")
　　　　tell (a reference to AppleScript’s text item delimiters)
　　　　　　set {old_atid, contents} to {contents, " "}
　　　　　　set {admin_users, contents} to {text items of admin_users, old_atid}
　　　　end tell
　　　　
　　　　if current_user is in admin_users then
　　　　　　return true
　　　　else
　　　　　　return false
　　　　end if
　　end if
　　
end getCurUsersPrivileges

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

–Web共有がオンになっているかどうかを検出する
on retWebSharingEnabled()
　　return (do shell script "ps -ax | grep httpd") contains "/usr/sbin/httpd"
end retWebSharingEnabled

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

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

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

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

tell application "System Events"
　　set ap1 to a reference to appearance preferences
　　tell ap1
　　　　set highlight color to aCol
　　end tell
end tell

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

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

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

–機種IDを取得する
on getMachineID()
　　set a to do shell script “ioreg -c CPU -w 0 | head -n 2 | tail -n 1“
　　
　　set sPos to offset of “< “ in a
　　if sPos = 0 then return “”
　　
　　set spPos to offset of “+-o“ in a
　　if spPos = 0 then return “”
　　
　　set cpuText to text (spPos + 3) thru (sPos - 1) of a
　　return cpuText
end getMachineID

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

set freRes to chkDiskSpace(requreHDDspaceStr) of me
if freRes = false then
　　display dialog “HDDの空き容量が足りません“ with title “エラー“ buttons {”OK“} default button 1
　　return
end if

–起動ディスクの空き容量をチェックする
on chkDiskSpace(aLimitStr)
　　tell application “Finder“
　　　　set a to free space of startup disk
　　end tell
　　set numberString to Stringify(a) of me
　　
　　–この記法（considering numeric strings）はMac OS X 10.4以降でないと通じない
　　considering numeric strings
　　　　if aLimitStr > numberString then
　　　　　　return false
　　　　else
　　　　　　return true
　　　　end if
　　end considering
end chkDiskSpace

–指数表示数値を文字列化
on Stringify(x) – for E+ numbers
　　set x to x as string
　　set {tids, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, {”E+“}}
　　if (count (text items of x)) = 1 then
　　　　set AppleScript’s text item delimiters to {tids}
　　　　return x
　　else
　　　　set {n, z} to {text item 1 of x, (text item 2 of x) as integer}
　　　　set AppleScript’s text item delimiters to {tids}
　　　　set i to character 1 of n
　　　　set decSepChar to character 2 of n – “.” or “,”
　　　　set d to text 3 thru -1 of n
　　　　set l to count d
　　　　if l > z then
　　　　　　return (i & (text 1 thru z of d) & decSepChar & (text (z + 1) thru -1 of d))
　　　　else
　　　　　　repeat (z - l) times
　　　　　　　　set d to d & “0“
　　　　　　end repeat
　　　　　　return (i & d)
　　　　end if
　　end if
end Stringify

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

–Localeを取得する
on getLocale()
　　set X to “”
　　try
　　　　set X to system attribute “LANG“
　　　　if X = “” then set X to do shell script “defaults read -g AppleLocale“
　　end try
　　if X = “” then set X to “en“
　　return X
end getLocale

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

tell application “System Events“
　　set vRec to value of property list file (outPath as string)
　　set v1Rec to _items of (first item of vRec)
　　
　　set dList to {}
　　set sList to {}
　　repeat with i in v1Rec
　　　　set hitF to false
　　　　try
　　　　　　set j to _items of i
　　　　　　set hitF to true
　　　　end try
　　　　
　　　　if hitF = true then
　　　　　　repeat with jj in j
　　　　　　　　try
　　　　　　　　　　set jjj to volumes of jj
　　　　　　　　　　set sNum to d_serial_num of jj
　　　　　　　　　　set vStr to b_vendor_id of jj
　　　　　　　　　　
　　　　　　　　　　repeat with ii in jjj
　　　　　　　　　　　　set the end of dList to {serialNum:sNum, venderName:vStr, dData:contents of ii}
　　　　　　　　　　end repeat
　　　　　　　　end try
　　　　　　end repeat
　　　　end if
　　end repeat
end tell

dList

–> {{serialNum:”7f12db856195ef”, venderName:”0×056e (Elecom Co., Ltd.)”, dData:{mount_point:”/Volumes/NO NAME”, _name:”NO NAME”, writable:”yes”, bsd_name:”disk2s1″, free_space:”3.75 GB”, file_system:”MS-DOS FAT32″, |size|:”3.77 GB”}}, {serialNum:”M004101800001″, venderName:”0×4146″, dData:{mount_point:”/Volumes/ぴよまる”, _name:”ぴよまる”, writable:”yes”, bsd_name:”disk1s9″, free_space:”56 MB”, file_system:”HFS+”, |size|:”123.1 MB”}}}

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

–By Phillip Aker, Mark J Reed
on getSafariDownloadFolder()
　　set preferencesPath to POSIX path of (path to preferences)
　　set bundleId to bundle identifier of (info for (path to application "Safari"))
　　set safariPrefsFile to preferencesPath & bundleId & ".plist"
　　tell application "System Events" to set folderName to get value of property list item "DownloadsPath" of property list file safariPrefsFile
　　set downloadFolder to (POSIX file (do shell script "echo " & folderName)) as alias
　　return downloadFolder
end getSafariDownloadFolder

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

–By Mark J Reed
on getSafariDownloadFolder()
　　try
　　　　set folderName to do shell script “defaults read com.apple.safari DownloadsPath“
　　　　set dPOSIXpath to do shell script “python -c ‘import os; print os.path.expanduser(u\”“ & folderName & “\”.encode(\”utf-8\”))’“
　　　　set downloadFolder to POSIX file dPOSIXpath as alias
　　on error
　　　　set downloadFolder to “”
　　end try
　　return downloadFolder
end getSafariDownloadFolder

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

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

–> alias “Cherry:Users:maro:Documents:ダウンロード:”

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

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

–マシンにエントリされているプリンタから１つを選択してデフォルトプリンタに設定する
–設定したプリンタの名称を文字列で返す
on setDefaultPrinter()
　　tell application “Printer Setup Utility“
　　　　set curPr to name of current printer
　　　　set curPrList to {curPr}
　　　　set myList to name of every printer
　　　　tell me
　　　　　　set aRes to (choose from list myList default items curPrList)
　　　　end tell
　　　　if aRes = false then return
　　　　set newPrinterName to item 1 of aRes
　　　　set current printer to printer newPrinterName
　　end tell
　　return newPrinterName
end setDefaultPrinter

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

–> {”DC4055P”, “PM-T960″, “PS-NX650_Print”}

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

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

–GUI Scriptingの設定判定。10.4/10.5対応
on retGUIScriptingEnabled()
　　set v2 to system attribute “sys2“ –> 4, 5
　　
　　–Mac OS X 10.4以上なら実行
　　if v2 > 3 then
　　　　tell application “System Events“
　　　　　　set anUIe to UI elements enabled
　　　　end tell
　　　　
　　　　if anUIe = true then
　　　　　　return true –UI Element Scripting (GUI Scripting)がイネーブルならtrueを返す
　　　　else
　　　　　　beep
　　　　　　display dialog “UI Element Scriptingが有効になっていません。“ & return & return & “「システム環境設定」の「ユニバーサルアクセス」で、「補助装置を使用可能にする」のチェックボックスにチェックを入れてから再実行してください。“ with icon stop
　　　　　　if button returned of result is “OK“ then
　　　　　　　　tell application “System Preferences“
　　　　　　　　　　activate
　　　　　　　　　　set current pane to pane “com.apple.preference.universalaccess“
　　　　　　　　end tell
　　　　　　　　return false
　　　　　　end if
　　　　end if
　　end if
end retGUIScriptingEnabled

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

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