use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property foundList : {}
property myHostNames : {}
property services : {}
property comingF : false
property resolveF : false

set mList to findHostsViaBonjour("_daap._tcp", "") of me
–> {"Takaaki Naganoya のライブラリ", "ぴよぴよ　ライブラリ"}

on findHostsViaBonjour(aType as string, aDomain as string)
　　set my foundList to {}
　　set my comingF to true
　　set my resolveF to false
　　set my myHostNames to (current application’s NSHost’s currentHost()’s names()) as list
　　–> {"MacMini2014.local", "macmini2014.local", "localhost"}
　　
　　set aBrowser to current application’s NSNetServiceBrowser’s alloc()’s init()
　　aBrowser’s setDelegate:me
　　aBrowser’s searchForServicesOfType:aType inDomain:aDomain
　　
　　repeat 100 times
　　　　if my comingF = false then
　　　　　　if my foundList is not equal to {} then exit repeat
　　　　end if
　　　　delay 0.01
　　end repeat
　　
　　repeat 100 times
　　　　if my resolveF = false then
　　　　　　if my foundList is not equal to {} then exit repeat
　　　　end if
　　　　delay 0.01
　　end repeat
　　
　　aBrowser’s setDelegate:(missing value)
　　return (my foundList)
end findHostsViaBonjour

–searchForServicesOfTypeのdelegate
on netServiceBrowser:aNetServiceBrowser didFindService:aNetService moreComing:aMoreComing
　　copy (aMoreComing as boolean) to my comingF
　　set my resolveF to true
　　aNetService’s setDelegate:me
　　set cInfo to aNetService’s resolveWithTimeout:3
end netServiceBrowser:didFindService:moreComing:

–NetService’s resolveWithTimeoutのdelegate
on netServiceDidResolveAddress:aSender
　　set cDesc to (aSender’s |name|()) as string
　　set dDesc to (aSender’s |hostName|()) as string
　　aSender’s |stop|() –すげー大事
　　
　　set dDesc to repChar(dDesc, ".local.", ".local") of me
　　
　　if dDesc is not in (my myHostNames) then
　　　　set the end of (my foundList) to cDesc
　　end if
end netServiceDidResolveAddress: