tell application "Finder"
　　if (count every window) = 0 then return
　　tell front window
　　　　set {xPos, yPos} to position
　　　　log {xPos, yPos}
　　end tell
end tell

set dispID to getPointInWhichScreen(xPos, yPos) of me

–指定座標がどのディスプレイ上に表示されているかをIDで返す（0はじまり。0はメインディスプレイ）
on getPointInWhichScreen(xPos, yPos)
　　set dList to getScreensResol() of me
　　
　　set aPoint to current application’s NSMakePoint(xPos, yPos)
　　set dCount to 0
　　repeat with i in dList
　　　　set dRes to current application’s NSPointInRect(aPoint, i) as boolean
　　　　
　　　　if dRes = true then
　　　　　　return dCount
　　　　end if
　　　　set dCount to dCount + 1
　　end repeat
　　
　　return dCount – 1 –ちょっと怪しいが、動作している様子
end getPointInWhichScreen

on getScreensResol()
　　set dispList to (current application’s NSScreen’s screens()) as list
　　set dList to {}
　　repeat with i in dispList
　　　　set framePref to i’s visibleFrame()
　　　　set {xPos, yPos} to first item of framePref
　　　　set theInfo to (i’s deviceDescription()’s NSDeviceSize) as record
　　　　set a1Rect to {origin:{x:xPos, y:yPos}, |size|:theInfo}
　　　　set the end of dList to a1Rect
　　end repeat
　　return dList
end getScreensResol