property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSPredicate : a reference to current application’s NSPredicate
property NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSPropertyListFormat : a reference to current application’s NSPropertyListFormat
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property NSPropertyListImmutable : a reference to current application’s NSPropertyListImmutable
property NSPropertyListSerialization : a reference to current application’s NSPropertyListSerialization

set devList to getBTBatteryLifeByNameList() of me
return devList
–>　　{​​​​​{​​​​​​​devName:"Takaaki Naganoya のマウス", ​​​​​​​battPercentage:79​​​​​}, ​​​​​{​​​​​​​devName:"Takaaki Naganoya のキーボード #1", ​​​​​​​battPercentage:93​​​​​}​​​}

on getBTBatteryLifeByNameList()
　　–Get name of connected devices
　　set aDevNameList to getBTPeripheralsConnected() of me
　　
　　–Get System Profiler information
　　set sRes to do shell script "/usr/sbin/system_profiler SPBluetoothDataType -detailLevel full -xml"
　　set aSource to (readPlistFromStr(sRes) of me) as list
　　set aaList to contents of first item of aSource
　　
　　–Filter System Profiler output
　　set outList to {}
　　
　　set aList to _items of aaList
　　
　　repeat with aDevName in aDevNameList
　　　　set aName to contents of aDevName
　　　　
　　　　repeat with i in aList
　　　　　　set aDict to (NSMutableDictionary’s dictionaryWithDictionary:(contents of i))
　　　　　　set aKeyPath to "device_title." & aName
　　　　　　set aVal to (aDict’s valueForKeyPath:aKeyPath) as list of string or string
　　　　　　
　　　　　　set tmpOut to filterDevListByName(aVal) of me as list of string or string
　　　　　　
　　　　　　if (tmpOut ≠ missing value) and (tmpOut ≠ "") then
　　　　　　　　set the end of outList to {devName:aName, battPercentage:retIntNumFromPercentageString(tmpOut) of me}
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return outList
end getBTBatteryLifeByNameList

on retIntNumFromPercentageString(aStr)
　　set aStr to current application’s NSString’s stringWithString:aStr
　　set aNum to aStr’s intValue()
　　return aNum
end retIntNumFromPercentageString

on filterDevListByName(aVal)
　　set outList to {}
　　
　　repeat with ii in aVal
　　　　set jj to contents of ii
　　　　if jj is not equal to missing value then
　　　　　　set tmpRec to (current application’s NSDictionary’s dictionaryWithDictionary:jj)
　　　　　　set tmpRes to (tmpRec’s valueForKeyPath:"device_batteryPercent")
　　　　　　
　　　　　　if tmpRes ≠ missing value then
　　　　　　　　return (tmpRes as list of string or string)
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return ""
end filterDevListByName

–Bluetooth経由で接続されているデバイス名をリストで返す
on getBTPeripheralsConnected()
　　set pRes to getBluetoothPowerState() of me
　　if pRes = false then return false
　　
　　set dArray to current application’s IOBluetoothDevice’s pairedDevices()
　　set aRes to my filterRecListByLabel1(dArray, "mIONotification != 0")
　　set dNames to (aRes’s mName) as list
　　return dNames
end getBTPeripheralsConnected

–stringのplistを読み込んでRecordに
on readPlistFromStr(theString)
　　set aSource to NSString’s stringWithString:theString
　　set pListData to aSource’s dataUsingEncoding:(NSUTF8StringEncoding)
　　set aPlist to NSPropertyListSerialization’s propertyListFromData:pListData mutabilityOption:(NSPropertyListImmutable) |format|:(NSPropertyListFormat) errorDescription:(missing value)
　　return aPlist
end readPlistFromStr

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel(aRecList as list, aPredicate as string)
　　set aArray to NSArray’s arrayWithArray:aRecList
　　
　　set aPredicate to NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　
　　set bList to filteredArray as list
　　return bList
end filterRecListByLabel

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList, aPredicate as string)
　　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
　　return filteredArray
end filterRecListByLabel1

–Mac本体のBluetoothのパワー状態を取得
on getBluetoothPowerState()
　　set aCon to current application’s IOBluetoothHostController’s alloc()’s init()
　　set pRes to (aCon’s powerState()) as boolean
end getBluetoothPowerState

property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSPredicate : a reference to current application’s NSPredicate
property NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSPropertyListFormat : a reference to current application’s NSPropertyListFormat
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property NSPropertyListImmutable : a reference to current application’s NSPropertyListImmutable
property NSPropertyListSerialization : a reference to current application’s NSPropertyListSerialization

set devList to getBTBatteryLifeByNameList() of me
return devList
–>　　{​​​​​{​​​​​​​devName:"Takaaki Naganoya のマウス", ​​​​​​​battPercentage:79​​​​​}, ​​​​​{​​​​​​​devName:"Takaaki Naganoya のキーボード #1", ​​​​​​​battPercentage:93​​​​​}​​​}

on getBTBatteryLifeByNameList()
　　–Get name of connected devices
　　set aDevNameList to getBTPeripheralsConnected() of me
　　
　　–Get System Profiler information
　　set sRes to do shell script "/usr/sbin/system_profiler SPBluetoothDataType -detailLevel full -xml"
　　set aSource to (readPlistFromStr(sRes) of me) as list
　　set aaList to contents of first item of aSource
　　
　　–Filter System Profiler output
　　set outList to {}
　　
　　set aList to _items of aaList
　　
　　repeat with aDevName in aDevNameList
　　　　set aName to contents of aDevName
　　　　
　　　　repeat with i in aList
　　　　　　set aDict to (NSMutableDictionary’s dictionaryWithDictionary:(contents of i))
　　　　　　set aKeyPath to "device_title." & aName
　　　　　　set aVal to (aDict’s valueForKeyPath:aKeyPath) as anything
　　　　　　
　　　　　　set tmpOut to filterDevListByName(aVal) of me as anything
　　　　　　
　　　　　　if (tmpOut ≠ missing value) and (tmpOut ≠ "") then
　　　　　　　　set the end of outList to {devName:aName, battPercentage:retIntNumFromPercentageString(tmpOut) of me}
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return outList
end getBTBatteryLifeByNameList

on retIntNumFromPercentageString(aStr)
　　set aStr to current application’s NSString’s stringWithString:aStr
　　set aNum to aStr’s intValue()
　　return aNum
end retIntNumFromPercentageString

on filterDevListByName(aVal)
　　set outList to {}
　　
　　repeat with ii in aVal
　　　　set jj to contents of ii
　　　　if jj is not equal to missing value then
　　　　　　set tmpRec to (current application’s NSDictionary’s dictionaryWithDictionary:jj)
　　　　　　set tmpRes to (tmpRec’s valueForKeyPath:"device_batteryPercent")
　　　　　　
　　　　　　if tmpRes ≠ missing value then
　　　　　　　　return (tmpRes as anything)
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return ""
end filterDevListByName

–Bluetooth経由で接続されているデバイス名をリストで返す
on getBTPeripheralsConnected()
　　set pRes to getBluetoothPowerState() of me
　　if pRes = false then return false
　　
　　set dArray to current application’s IOBluetoothDevice’s pairedDevices()
　　set aRes to my filterRecListByLabel1(dArray, "mIONotification != 0")
　　set dNames to (aRes’s mName) as list
　　return dNames
end getBTPeripheralsConnected

–stringのplistを読み込んでRecordに
on readPlistFromStr(theString)
　　set aSource to NSString’s stringWithString:theString
　　set pListData to aSource’s dataUsingEncoding:(NSUTF8StringEncoding)
　　set aPlist to NSPropertyListSerialization’s propertyListFromData:pListData mutabilityOption:(NSPropertyListImmutable) format:(NSPropertyListFormat) errorDescription:(missing value)
　　return aPlist
end readPlistFromStr

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel(aRecList as list, aPredicate as string)
　　set aArray to NSArray’s arrayWithArray:aRecList
　　
　　set aPredicate to NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　
　　set bList to filteredArray as list
　　return bList
end filterRecListByLabel

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList, aPredicate as string)
　　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
　　return filteredArray
end filterRecListByLabel1

–Mac本体のBluetoothのパワー状態を取得
on getBluetoothPowerState()
　　set aCon to current application’s IOBluetoothHostController’s alloc()’s init()
　　set pRes to (aCon’s powerState()) as boolean
end getBluetoothPowerState

set pRes to getBluetoothPowerState() of me
if pRes = false then return

set dArray to current application’s IOBluetoothDevice’s pairedDevices()
set aRes to my filterRecListByLabel1(dArray, "mIONotification != 0")
set dNames to (aRes’s mName) as list
–>　　{​​​​​"Piyomaru AirPods", ​​​​​"Takaaki Naganoya のマウス"​​​}

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList, aPredicate as string)
　　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
　　return filteredArray
end filterRecListByLabel1

–Mac本体のBluetoothのパワー状態を取得
on getBluetoothPowerState()
　　set aCon to current application’s IOBluetoothHostController’s alloc()’s init()
　　set pRes to (aCon’s powerState()) as boolean
end getBluetoothPowerState

set pRes to getBluetoothPowerState() of me

property IOBluetoothHostController : a reference to current application’s IOBluetoothHostController
property IOBluetoothDevice : a reference to current application’s IOBluetoothDevice

set dList to getActiveBluetoothDevices() of me
–>　　{{deviceName:"Piyomaru AirPods", deviceAddress:"Xx-XX-xX-Xx-xx-xx"}, {deviceName:"Takaaki Naganoya のマウス", deviceAddress:"xx-xx-XX-xx-XX-Xx"}, {deviceName:"Takaaki Naganoya のキーボード #1", deviceAddress:"XX-XX-xX-xx-Xx-xX"}}

set dRes to filterRecListByLabel(dList, "deviceName contains ’AirPods’") of me
if dRes = {} then return false –Case: No match
set dAddr to dRes’s first item’s deviceAddress

set cnRes1 to disconnectBluetoothDeviceByAddress(dAddr) of me
–>　　true (Successfully Disconnected)

delay 10

set cnRes2 to connectBluetoothDeviceByAddress(dAddr) of me
–>　　true (Successfully Connected)

–指定アドレスのBluetooth Deviceを接続する
on connectBluetoothDeviceByAddress(addressStr as string)
　　if getBluetoothPowerState() = false then error "Bluetooth Power is not active with your Mac"
　　set aBTList to IOBluetoothDevice’s pairedDevices() as list
　　
　　repeat with i in aBTList
　　　　set aClass to (current application’s NSStringFromClass(i’s |class|())) as string
　　　　if aClass is equal to "IOBluetoothDevice" then
　　　　　　set anAddress to i’s addressString() as string
　　　　　　
　　　　　　if anAddress = addressStr then
　　　　　　　　i’s openConnection()
　　　　　　　　return true
　　　　　　end if
　　　　end if
　　end repeat
　　return false
end connectBluetoothDeviceByAddress

–指定アドレスのBluetooth Deviceの接続を切る
on disconnectBluetoothDeviceByAddress(addressStr as string)
　　if getBluetoothPowerState() = false then error "Bluetooth Power is not active with your Mac"
　　set aBTList to IOBluetoothDevice’s pairedDevices() as list
　　
　　repeat with i in aBTList
　　　　set aClass to (current application’s NSStringFromClass(i’s |class|())) as string
　　　　if aClass is equal to "IOBluetoothDevice" then
　　　　　　set anAddress to i’s addressString() as string
　　　　　　
　　　　　　if anAddress = addressStr then
　　　　　　　　i’s closeConnection()
　　　　　　　　return true
　　　　　　end if
　　　　end if
　　end repeat
　　return false
end disconnectBluetoothDeviceByAddress

–ペアリング済みのBluetooth Deviceの情報を取得
on getActiveBluetoothDevices()
　　if getBluetoothPowerState() = false then error "Bluetooth Power is not active with your Mac"
　　set aBTList to IOBluetoothDevice’s pairedDevices() as list
　　set devList to {}
　　
　　repeat with i in aBTList
　　　　set aClass to (current application’s NSStringFromClass(i’s |class|())) as string
　　　　if aClass = "IOBluetoothDevice" then
　　　　　　set aName to i’s |name|() as string
　　　　　　set anAddress to i’s addressString() as string
　　　　　　set aPaired to i’s isPaired() as boolean
　　　　　　–set aConnect to i’s isConnected() as boolean
　　　　　　if aPaired = true then
　　　　　　　　set the end of devList to {deviceName:aName, deviceAddress:anAddress}
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return devList
end getActiveBluetoothDevices

–Mac本体のBluetoothのパワー状態を取得
on getBluetoothPowerState()
　　set aCon to IOBluetoothHostController’s alloc()’s init()
　　set pRes to (aCon’s powerState()) as boolean
end getBluetoothPowerState

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel(aRecList as list, aPredicate as string)
　　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
　　
　　set bList to filteredArray as list
　　return bList
end filterRecListByLabel

property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSPredicate : a reference to current application’s NSPredicate
property NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSPropertyListFormat : a reference to current application’s NSPropertyListFormat
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property NSPropertyListImmutable : a reference to current application’s NSPropertyListImmutable
property NSPropertyListSerialization : a reference to current application’s NSPropertyListSerialization

–製造者が"Apple"のBluetoothデバイスをリストアップ
set qRes to returnBTPeripheral from "Apple"
–>　　{​​​​​{​​​​​​​device_supportsESCO:"attrib_Yes", ​​​​​​​device_role:"attrib_master", ​​​​​​​device_manufacturer:"Apple (0x6, 0x03)", ​​​​​​​device_services:"Handsfree, Wireless iAP, AVRCP Controller, Audio Sink, AVRCP Target, AAP Server", ​​​​​​​device_isconnected:"attrib_Yes", ​​​​​​​device_RSSI:-51, ​​​​​​​device_majorClassOfDevice_string:"Audio", ​​​​​​​device_isconfigured:"attrib_Yes", ​​​​​​​device_minorClassOfDevice_string:"Headphones", ​​​​​​​device_interval:"441.25 ms", ​​​​​​​device_addr:"XX-XX-XX-XX-XX-XX", ​​​​​​​device_ConnectionMode:"attrib_sniff_mode", ​​​​​​​device_productID:"0x2002", ​​​​​​​device_supportsSSP:"attrib_Yes", ​​​​​​​device_classOfDevice:"0x04 0x06 0x240418", ​​​​​​​device_vendorID:"0x004C", ​​​​​​​device_fw_version:"0x0372", ​​​​​​​device_ispaired:"attrib_Yes", ​​​​​​​device_supportsEDR:"attrib_Yes"​​​​​}, ​​​​​{​​​​​​​device_supportsESCO:"attrib_No", ​​​​​​​device_manufacturer:"Apple (0x3, 0x31C)", ​​​​​​​device_ispaired:"attrib_Yes", ​​​​​​​device_services:"Apple Wireless Mouse", ​​​​​​​device_isconnected:"attrib_No", ​​​​​​​device_majorClassOfDevice_string:"Peripheral", ​​​​​​​device_isNormallyConnectable:"attrib_Yes", ​​​​​​​device_isconfigured:"attrib_Yes", ​​​​​​​device_addr:"XX-XX-XX-XX-XX-XX", ​​​​​​​device_productID:"0x030D", ​​​​​​​device_supportsSSP:"attrib_No", ​​​​​​​device_vendorID:"0x05AC", ​​​​​​​device_classOfDevice:"0x05 0x20 0x2580", ​​​​​​​device_minorClassOfDevice_string:"Mouse", ​​​​​​​device_fw_version:"0x0084", ​​​​​​​device_supportsEDR:"attrib_No"​​​​​}​​​}
–Appleのデバイスでも製造者がAppleになっていないものもある。Magic Keyboard 2とか

–種類（マイナー）が "Headphones"のBluetoothデバイスをリストアップ
set qRes to returnBTPeripheral about "Headphones"
–>　　{​​​​​{​​​​​​​device_supportsESCO:"attrib_Yes", ​​​​​​​device_role:"attrib_master", ​​​​​​​device_manufacturer:"Apple (0x6, 0x03)", ​​​​​​​device_services:"Handsfree, Wireless iAP, AVRCP Controller, Audio Sink, AVRCP Target, AAP Server", ​​​​​​​device_isconnected:"attrib_Yes", ​​​​​​​device_RSSI:-51, ​​​​​​​device_majorClassOfDevice_string:"Audio", ​​​​​​​device_isconfigured:"attrib_Yes", ​​​​​​​device_minorClassOfDevice_string:"Headphones", ​​​​​​​device_interval:"441.25 ms", ​​​​​​​device_addr:"XX-XX-XX-XX-XX-XX", ​​​​​​​device_ConnectionMode:"attrib_sniff_mode", ​​​​​​​device_productID:"0x2002", ​​​​​​​device_supportsSSP:"attrib_Yes", ​​​​​​​device_classOfDevice:"0x04 0x06 0x240418", ​​​​​​​device_vendorID:"0x004C", ​​​​​​​device_fw_version:"0x0372", ​​​​​​​device_ispaired:"attrib_Yes", ​​​​​​​device_supportsEDR:"attrib_Yes"​​​​​}​​​}

–製造者が"Apple"で、種類（マイナー）が "Headphones"のBluetoothデバイスをリストアップ
set qRes to returnBTPeripheral from "Apple" about "Headphones"
–> {{device_supportsESCO:"attrib_Yes", device_role:"attrib_master", device_manufacturer:"Apple (0x6, 0x03)", device_services:"Handsfree, Wireless iAP, AVRCP Controller, Audio Sink, AVRCP Target, AAP Server", device_isconnected:"attrib_Yes", device_RSSI:-52, device_majorClassOfDevice_string:"Audio", device_isconfigured:"attrib_Yes", device_minorClassOfDevice_string:"Headphones", device_interval:"441.25 ms", device_addr:"XX-XX-XX-XX-XX-XX", device_ConnectionMode:"attrib_sniff_mode", device_productID:"0x2002", device_supportsSSP:"attrib_Yes", device_classOfDevice:"0x04 0x06 0x240418", device_vendorID:"0x004C", device_fw_version:"0x0372", device_ispaired:"attrib_Yes", device_supportsEDR:"attrib_Yes"}}

on returnBTPeripheral from devMaker as string : "" about kindName as string : ""
　　set sRes to do shell script "/usr/sbin/system_profiler SPBluetoothDataType -detailLevel full -xml"
　　set aSource to (readPlistFromStr(sRes) of me) as list
　　set aaList to contents of first item of aSource
　　
　　set resArray to NSMutableArray’s new()
　　
　　set aList to _items of aaList
　　repeat with i in aList
　　　　set aDict to (NSMutableDictionary’s dictionaryWithDictionary:(contents of i))
　　　　set aKeyList to (aDict’s allKeys()) as list
　　　　
　　　　set dResList to (aDict’s valueForKeyPath:"device_title")
　　　　repeat with ii in dResList
　　　　　　set dKeyList to ii’s allKeys()
　　　　　　set dKey to first item of dKeyList
　　　　　　set dDic to (ii’s valueForKeyPath:dKey)
　　　　　　
　　　　　　if devMaker is not equal to "" and kindName is not equal to "" then
　　　　　　　　set qText to "device_manufacturer contains ’" & devMaker & "’ && device_minorClassOfDevice_string ==’" & kindName & "’"
　　　　　　else if devMaker is not equal to "" then
　　　　　　　　set qText to "device_manufacturer contains ’" & devMaker & "’"
　　　　　　else if kindName is not equal to "" then
　　　　　　　　set qText to "device_minorClassOfDevice_string ==’" & kindName & "’"
　　　　　　end if
　　　　　　
　　　　　　set dRes to filterRecListByLabel(dDic, qText) of me
　　　　　　if (dRes as list) is not equal to {} then
　　　　　　　　(resArray’s addObject:(first item of dRes))
　　　　　　end if
　　　　end repeat
　　end repeat
　　
　　return resArray as list
end returnBTPeripheral

–stringのplistを読み込んでRecordに
on readPlistFromStr(theString)
　　set aSource to NSString’s stringWithString:theString
　　set pListData to aSource’s dataUsingEncoding:(NSUTF8StringEncoding)
　　set aPlist to NSPropertyListSerialization’s propertyListFromData:pListData mutabilityOption:(NSPropertyListImmutable) |format|:(NSPropertyListFormat) errorDescription:(missing value)
　　return aPlist
end readPlistFromStr