set a to "Safari"
set aRes to dispAppWithFullScreen(a) of me

–指定名称のアプリケーション（起動中のもの）をフルスクリーン表示
on dispAppWithFullScreen(applicationName)
　　
　　set appName to returnExactNameOfAnApp(applicationName)
　　if appName = false then return false –指定のアプリがなかった、あるいはアプリケーション名を間違って指定した
　　
　　set pID to id of application appName
　　
　　tell application appName
　　　　reopen
　　　　activate
　　end tell
　　
　　tell application "System Events"
　　　　tell (process 1 whose bundle identifier is pID)
　　　　　　set b1List to every button of window 1 whose subrole is "AXFullScreenButton" –Full Screen
　　　　　　set b2List to every button of window 1 whose subrole is "AXZoomButton" –Zoom
　　　　　　
　　　　　　if b1List = {} then
　　　　　　　　set targB to first item of b2List –フルスクリーン表示機能を持たないアプリの場合
　　　　　　else
　　　　　　　　set targB to first item of b1List –フルスクリーン表示機能を持つアプリの場合
　　　　　　end if
　　　　　　
　　　　　　click targB
　　　　end tell
　　end tell
　　
　　return true
　　
end dispAppWithFullScreen

–指定のURLスキームに対応するアプリケーションのパスを取得
set aRes to getDefaultAppForScheme("http") of defautApLib
–> "/Applications/Safari.app"

set bRes to getDefaultAppForScheme("ftp") of defautApLib
–> "/Applications/Transmit.app"

–指定のURLスキームに対応するアプリケーションを設定
set cRes to setDefaultAppForScheme("ftp", "Safari") of defautApLib
–> true

set dInfoList to getOpticalDrivesInfo() of me
–> {{driveNum:"1", vendorName:"BUFFALO", productName:"Optical Drive", supportLevel:"Unsupported", revisionNo:"BFT6", busName:"USB", suppoortLevel:"Unsupported"}, {driveNum:"2", vendorName:"MATSHITA", productName:"BD-MLT UJ240AS", supportLevel:"Unsupported", revisionNo:"1.00", busName:"USB", suppoortLevel:"Unsupported"}}

–光学ドライブの情報を返す
on getOpticalDrivesInfo()
　　set dList to paragraphs of (do shell script "drutil list")
　　set d2List to removeItemFromList(dList, "") of me
　　
　　if length of d2List = 1 then return false –No Optical Drive
　　
　　set d2List to rest of d2List –skip first header row
　　
　　set dMainList to {}
　　repeat with i in d2List
　　　　set tmpA to (current application’s NSString’s stringWithString:i)
　　　　set tmpB to (tmpA’s componentsSeparatedByString:" ") as list –parse string by space character
　　　　set tmpC to removeItemFromList(tmpB, "") of me –remove empty item from list
　　　　
　　　　set dNum to first item of tmpC
　　　　set aVendor to second item of tmpC
　　　　set supLevel to last item of tmpC
　　　　set busStr to item -2 of tmpC
　　　　set revStr to item -3 of tmpC
　　　　
　　　　–Product Nameのlist itemをスペースでつないで文字列化
　　　　set prodName1 to items 3 thru -4 of tmpC
　　　　set prodName2 to retStrFromArrayWithDelimiter(prodName1, " ") of me
　　　　
　　　　set the end of dMainList to {driveNum:dNum, vendorName:aVendor, productName:prodName2, supportLevel:supLevel, revisionNo:revStr, busName:busStr, suppoortLevel:supLevel}
　　end repeat
　　
　　return dMainList
end getOpticalDrivesInfo

–1D Listから指定内容の要素をすべて削除する
on removeItemFromList(aTargList, aTargValue)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aTargList
　　repeat
　　　　set aInd to anArray’s indexOfObject:aTargValue
　　　　–macOS 10.12〜10.13.0までのNSNotFoundの値定義の間違いというAppleの恥ずかしいバグに対処
　　　　if aInd = current application’s NSNotFound or (aInd as real > 9.99999999E+8) then exit repeat
　　　　anArray’s removeObjectAtIndex:aInd
　　end repeat
　　return anArray as list
end removeItemFromList

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList, aDelim)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set aRes to anArray’s componentsJoinedByString:aDelim
　　return aRes as text
end retStrFromArrayWithDelimiter

set mRes to retMemoryUsage() of me
–> {usedMem:7928, wiredMem:1763, unusedMem:257}

on retMemoryUsage()
　　set memRes to do shell script "top -l 1 | head -10 | grep ’PhysMem’"
　　set aRes to (parseStrFromTo(memRes, " ", "M") of me)
　　
　　set bList to {}
　　repeat with i in aRes
　　　　set mRes to returnNumberOnly(i) of me
　　　　set the end of bList to mRes
　　end repeat
　　
　　set usedNum to contents of first item of bList
　　set wiredNum to contents of second item of bList
　　set unusedNum to contents of third item of bList
　　return {usedMem:usedNum as integer, wiredMem:wiredNum as integer, unusedMem:unusedNum as integer}
end retMemoryUsage

on parseStrFromTo(aParamStr, fromStr, toStr)
　　set theScanner to current application’s NSScanner’s scannerWithString:aParamStr
　　set anArray to current application’s NSMutableArray’s array()
　　
　　repeat until (theScanner’s isAtEnd as boolean)
　　　　— terminate check, return the result (aDict) to caller
　　　　set {theResult, theKey} to theScanner’s scanUpToString:fromStr intoString:(reference)
　　　　
　　　　— skip over separator
　　　　theScanner’s scanString:fromStr intoString:(missing value)
　　　　set {theResult, theValue} to theScanner’s scanUpToString:toStr intoString:(reference)
　　　　if theValue is missing value then set theValue to "" –>追加
　　　　
　　　　— skip over separator
　　　　theScanner’s scanString:toStr intoString:(missing value)
　　　　
　　　　anArray’s addObject:theValue
　　end repeat
　　
　　return anArray as list
end parseStrFromTo

on returnNumberOnly(aStr)
　　set anNSString to current application’s NSString’s stringWithString:aStr
　　set anNSString to anNSString’s stringByReplacingOccurrencesOfString:"[^0-9]" withString:"" options:(current application’s NSRegularExpressionSearch) range:{0, anNSString’s |length|()}
　　return anNSString as text
end returnNumberOnly

set dRes to diskUsage() of me
–> {readSector:8557760, readSize:"152G", writeSecotr:2601227, writeSize:"100G"}

on diskUsage()
　　set dRes to (do shell script "top -l 1 | head -10 | grep ’Disks:’")
　　set dList to words of dRes
　　set readSectorNum to (contents of item 2 of dList) as integer
　　set readSizeNum to contents of item 3 of dList
　　set writeSectorNum to (contents of item 5 of dList) as integer
　　set writeSizeNum to contents of item 6 of dList
　　return {readSector:readSectorNum, readSize:readSizeNum, writeSecotr:writeSectorNum, writeSize:writeSizeNum}
end diskUsage

set nRes to networkUsage() of me
–> {inPacket:4904085, inSize:"5444M", outPacket:3426539, outSize:"396M"}