set theResult to do shell script "diskutil list -plist"

— make dictionary from property list
set theResult to current application’s NSString’s stringWithString:theResult
set pListDict to theResult’s propertyList()
–>　　(NSDictionary) {​​​​​AllDisks:{​​​​​​​"disk0", ​​​​​​​"disk0s1", ​​​​​​​"disk0s2", ​​​​​​​"disk0s3", ​​​​​​​"disk1"​​​​​}, ​​​​​AllDisksAndPartitions:{​​​​​​​{​​​​​​​​​DeviceIdentifier:"disk0", ​​​​​​​​​Size:500277790720, ​​​​​​​​​Content:"GUID_partition_scheme", ​​​​​​​​​Partitions:{​​​​​​​​​​​{​​​​​​​​​​​​​DiskUUID:"FC89778D-9028-4FAA-8118-F74802B0664E", ​​​​​​​​​​​​​DeviceIdentifier:"disk0s1", ​​​​​​​​​​​​​Size:209715200, ​​​​​​​​​​​​​Content:"EFI", ​​​​​​​​​​​​​VolumeName:"EFI", ​​​​​​​​​​​​​VolumeUUID:"85D67001-D93E-3687-A1C2-79D677F0C2E0"​​​​​​​​​​​}, ​​​​​​​​​​​{​​​​​​​​​​​​​DiskUUID:"AAF54C8C-9229-4DC1-8EA5-5FCCE9050DC4", ​​​​​​​​​​​​​DeviceIdentifier:"disk0s2", ​​​​​​​​​​​​​Size:499418034176, ​​​​​​​​​​​​​Content:"Apple_CoreStorage"​​​​​​​​​​​}, ​​​​​​​​​​​{​​​​​​​​​​​​​DiskUUID:"EE72FC16-C614-4C77-9048-6EF118451D48", ​​​​​​​​​​​​​DeviceIdentifier:"disk0s3", ​​​​​​​​​​​​​Size:650002432, ​​​​​​​​​​​​​Content:"Apple_Boot", ​​​​​​​​​​​​​VolumeName:"Recovery HD", ​​​​​​​​​​​​​VolumeUUID:"3400E36B-24AA-3B7A-93E3-BBDCDFF48548"​​​​​​​​​​​}​​​​​​​​​}​​​​​​​}, ​​​​​​​{​​​​​​​​​DeviceIdentifier:"disk1", ​​​​​​​​​Size:499055067136, ​​​​​​​​​MountPoint:"/", ​​​​​​​​​Content:"Apple_HFS", ​​​​​​​​​VolumeName:"Cherry"​​​​​​​}​​​​​}, ​​​​​WholeDisks:{​​​​​​​"disk0", ​​​​​​​"disk1"​​​​​}, ​​​​​VolumesFromDisks:{​​​​​​​"Cherry"​​​​​}​​​}

— extract relevant info
set disksAndParitions to pListDict’s objectForKey:"AllDisksAndPartitions"
–>　　(NSArray) {​​​​​{​​​​​​​DeviceIdentifier:"disk0", ​​​​​​​Size:500277790720, ​​​​​​​Content:"GUID_partition_scheme", ​​​​​​​Partitions:{​​​​​​​​​{​​​​​​​​​​​DiskUUID:"FC89778D-9028-4FAA-8118-F74802B0664E", ​​​​​​​​​​​DeviceIdentifier:"disk0s1", ​​​​​​​​​​​Size:209715200, ​​​​​​​​​​​Content:"EFI", ​​​​​​​​​​​VolumeName:"EFI", ​​​​​​​​​​​VolumeUUID:"85D67001-D93E-3687-A1C2-79D677F0C2E0"​​​​​​​​​}, ​​​​​​​​​{​​​​​​​​​​​DiskUUID:"AAF54C8C-9229-4DC1-8EA5-5FCCE9050DC4", ​​​​​​​​​​​DeviceIdentifier:"disk0s2", ​​​​​​​​​​​Size:499418034176, ​​​​​​​​​​​Content:"Apple_CoreStorage"​​​​​​​​​}, ​​​​​​​​​{​​​​​​​​​​​DiskUUID:"EE72FC16-C614-4C77-9048-6EF118451D48", ​​​​​​​​​​​DeviceIdentifier:"disk0s3", ​​​​​​​​​​​Size:650002432, ​​​​​​​​​​​Content:"Apple_Boot", ​​​​​​​​​​​VolumeName:"Recovery HD", ​​​​​​​​​​​VolumeUUID:"3400E36B-24AA-3B7A-93E3-BBDCDFF48548"​​​​​​​​​}​​​​​​​}​​​​​}, ​​​​​{​​​​​​​DeviceIdentifier:"disk1", ​​​​​​​Size:499055067136, ​​​​​​​MountPoint:"/", ​​​​​​​Content:"Apple_HFS", ​​​​​​​VolumeName:"Cherry"​​​​​}​​​}

set partitionsArray to current application’s NSMutableArray’s array() — to store values
repeat with anEntry in disksAndParitions
　　set thePartitions to (anEntry’s objectForKey:"Partitions")
　　if thePartitions = missing value then — no partitions means a volume
　　　　(partitionsArray’s addObject:anEntry)
　　else
　　　　(partitionsArray’s addObjectsFromArray:thePartitions)
　　end if
end repeat

— filter by Content type
set thePred to current application’s NSPredicate’s predicateWithFormat:"Content == ’Apple_HFS’ OR Content == ’Apple_APFS’ "
set partitionsArray to partitionsArray’s filteredArrayUsingPredicate:thePred

set targDev to "/dev/disk3" –Blu-ray drive via USB

set aDict to current application’s NSMutableDictionary’s alloc()’s init()
try
　　set a to do shell script "diskutil info " & targDev
on error
　　return false
end try

set aList to paragraphs of a

repeat with i in aList
　　set j to contents of i
　　if j is not equal to "" then
　　　　set jj to parseByDelim(j, ":") of me
　　　　
　　　　if (count every item of jj) is equal to 2 then
　　　　　　copy jj to {j2, j3}
　　　　　　
　　　　　　set jj2 to (current application’s NSString’s stringWithString:j2)
　　　　　　set jj3 to (current application’s NSString’s stringWithString:j3)
　　　　　　
　　　　　　set jjj2 to (jj2’s stringByTrimmingCharactersInSet:(current application’s NSCharacterSet’s whitespaceCharacterSet()))
　　　　　　set jjj3 to (jj3’s stringByTrimmingCharactersInSet:(current application’s NSCharacterSet’s whitespaceCharacterSet()))
　　　　　　
　　　　　　(aDict’s setValue:jjj3 forKey:jjj2)
　　　　end if
　　　　
　　end if
end repeat

return aDict as list of string or string
–>　　{Read-Only Media:"Yes", OS Can Be Installed:"No", Volume Name:"Not applicable (no file system)", OS 9 Drivers:"No", Virtual:"No", Device Block Size:"2048 Bytes", Low Level Format:"Not supported", Removable Media:"Yes", Device / Media Name:"MATSHITA BD-MLT UJ240AS", Optical Media Erasable:"No", Optical Drive Type:"CD-ROM, CD-R, CD-RW, DVD-ROM, DVD-R, DVD-R DL, DVD-RW, DVD-RAM, DVD+R, DVD+R DL, DVD+RW, BD-ROM, BD-R, BD-RE", Part of Whole:"disk3", Device Identifier:"disk3", Whole:"Yes", Optical Media Type:"BD-R", SMART Status:"Not Supported", Device Location:"External", Volume Free Space:"Not applicable (no file system)", Device Node:"/dev/disk3", Read-Only Volume:"Not applicable (no file system)", Media Type:"Generic", Total Size:"0 B (0 Bytes) (exactly 0 512-Byte-Units)", Media Removal:"Software-Activated", Mounted:"Not applicable (no file system)", Content (IOContent):"None", File System:"None", Protocol:"USB"}

–Retina Displayを含む構成のとき（macOS 10.10.x）
set dInfoList to retScreenInfos()
–>　　{{screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:144.0, height:144.0}}, screenIsScreen:true, screenNumber:"69501832", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:144.0, height:144.0}}, screenIsScreen:true, screenNumber:"69513475", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:144.0, height:144.0}}, screenIsScreen:true, screenNumber:"69731202", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1080.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"458586661", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}}

–Retina Displayを含む構成のとき（macOS 10.12.6）
–> {{screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:144.0, height:144.0}}, screenIsScreen:true, screenNumber:"69731202", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1080.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"458586661", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}}

–Retina Displayを含まない構成のとき（MacBook Pro Retina本体のLid Closed Mode時）（macOS 10.10.x）
–set dInfoList to retScreenInfos()
–>　　{{screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"69501832", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"69513475", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1080.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"458586661", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}}

–Retina Displayを含まない構成のとき（MacBook Pro Retina本体のLid Closed Mode時）（macOS 10.12.6）
–> {{screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"69501831", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1200.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"69513476", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}, {screenSize:{{width:1920.0, height:1080.0}}, screenResol:{{width:72.0, height:72.0}}, screenIsScreen:true, screenNumber:"458586661", screenColorSpace:"NSCalibratedRGBColorSpace", screenColDepth:"8"}}

set aTask to current application’s NSTask’s alloc()’s init()
aTask’s setLaunchPath:"/System/Library/CoreServices/Menu Extras/User.menu/Contents/Resources/CGSession"
aTask’s setArguments:(current application’s NSArray’s arrayWithObject:"-suspend")
aTask’s |launch|()

set allInfo to {}
set theScreens to current application’s NSScreen’s screens()
repeat with aScreen in theScreens
　　set theInfo to aScreen’s deviceDescription() as record
　　set theInfo to theInfo & aScreen’s frame() as record
　　set end of allInfo to theInfo
end repeat
return allInfo
–> {{NSDeviceResolution:{width:144.0, height:144.0}, NSDeviceSize:{width:1920.0, height:1200.0}, NSDeviceIsScreen:"YES", NSScreenNumber:2.077752445E+9, NSDeviceColorSpaceName:"NSCalibratedRGBColorSpace", NSDeviceBitsPerSample:8, origin:{x:0.0, y:0.0}, |size|:{width:1920.0, height:1200.0}}}

set mRes to retMemoryUsage() of me
–> {usedMem:7891, wiredMem:2220, unusedMem:293}

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

on detectTouchBar()
　　tell application "System Events"
　　　　set frontApp to first application process whose frontmost is true
　　　　try
　　　　　　set touchBar to first UI element of frontApp whose role is "AXFunctionRowTopLevelElement"
　　　　on error errMsg number errNum
　　　　　　return false
　　　　end try
　　　　
　　　　set touchBarItems to value of attribute "AXChildren" of touchBar
　　　　return (touchBarItems is not equal to {})
　　end tell
end detectTouchBar

set mRes to retModelInfo() of me
–>　　"MacBook Pro with Retina display, Intel Core i7, 15＼" (Mid 2012)"

on retModelInfo()
　　set pListPath to "/System/Library/PrivateFrameworks/ServerInformation.framework/" & "Versions/A/Resources/English.lproj/SIMachineAttributes.plist"
　　set aRec to retDictFromPlist(pListPath) of me
　　
　　set hwName to (do shell script "sysctl -n hw.model")
　　–>　　"MacBookPro10,1"
　　
　　set aMachineRec to retRecordByLabel(aRec, hwName)
　　
　　set aMachineRec2 to contents of first item of aMachineRec
　　return (marketingModel of _LOCALIZABLE_ of aMachineRec2)
end retModelInfo

–Read plist as record
on retDictFromPlist(aPath)
　　set thePath to current application’s NSString’s stringWithString:aPath
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theDict to current application’s NSDictionary’s dictionaryWithContentsOfFile:thePath
　　return theDict as record
end retDictFromPlist

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel(aRecList as list, aPredicate as string)
　　–ListからNSArrayへの型変換
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　
　　–抽出
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　
　　–NSArrayからListに型変換して返す
　　return filteredArray as list
end filterRecListByLabel

–指定レコードの指定ラベルの値を取得する
on retRecordByLabel(aRec as record, aKey as string)
　　set aDic to current application’s NSDictionary’s dictionaryWithDictionary:aRec
　　set aVal to aDic’s valueForKey:aKey
　　return aVal as list
end retRecordByLabel

–指定レコードの指定ラベルの値を取得する
on retRecordByKeyPath(aRec as record, aKey as string)
　　set aDic to current application’s NSDictionary’s dictionaryWithDictionary:aRec
　　set aVal to aDic’s valueForKeyPath:aKey
　　return aVal
end retRecordByKeyPath

set bRes to retFilteredSysctrlValue("hw.busfrequency_max") of me
–> " 100000000"

return {aRes, bRes}
–> {"Intel(R) Core(TM) i7-3720QM CPU @ 2.60GHz", " 100000000"}

on retFilteredSysctrlValue(aTargLabel)
　　set aRes to do shell script "sysctl -a | grep " & aTargLabel
　　set aLen to length of aTargLabel
　　set bRes to text (aLen + 2) thru -1 of aRes
　　return bRes
end retFilteredSysctrlValue

set aDict to retCpuUsage() of me
–> {userCPU:3.2, sysCPU:12.29, idleCPU:84.49}

on retCpuUsage()
　　set cpuUseRes to do shell script "top -l 1 | head -10 | grep ’CPU usage’"
　　set aRes to (parseStrFromTo(cpuUseRes, " ", "%") of me)
　　set userUsage to (last item of (words of item 1 of aRes)) as real
　　set sysUsage to (item 2 of aRes) as real
　　set idleUsage to (item -2 of aRes) as real
　　return {userCPU:userUsage, sysCPU:sysUsage, idleCPU:idleUsage}
end retCpuUsage