hubionmac.com

tell application "Safari"

tell document 1

--set mybaseURL to do JavaScript "document.URL.slice(0, document.URL.lastIndexOf('/')+1)"

set jslinks to do JavaScript "var jssrcarray = new Array()

for (var i=0;i<document.getElementsByTagName('script').length;i++)

{

jssrcarray.push(document.getElementsByTagName('script')[i].src)

}

jssrcarray

"

repeat with jslink in jslinks

open location jslink

end repeat

end tell

end tell

tell application "Safari"

tell document 1

do JavaScript "for (var i=0;i<document.getElementsByTagName('*').length;i++)

{

if ((document.getElementsByTagName('*')[i].style.position == 'absolute')||(document.getElementsByTagName('*')[i].style.position == 'fixed'))

document.getElementsByTagName('*')[i].style.display = 'none'

}"

end tell

end tell

tell application "Safari"

tell document 1

do JavaScript "for (var i=0;i<document.getElementsByTagName('*').length;i++)

{

if ((document.defaultView.getComputedStyle(document.getElementsByTagName('*')[i],null).position == 'absolute')||(document.defaultView.getComputedStyle(document.getElementsByTagName('*')[i],null).position == 'fixed'))

document.getElementsByTagName('*')[i].style.display = 'none'

}"

end tell

end tell

set a to {"04:1e:aa:ef:7c:5d", "04:1e:aa:eb:1:e7"}

set i to 1

repeat with w in a

activate application "AirPort Utility"

tell application "System Events"

tell process "AirPort-Dienstprogramm"

click button 2 of tab group 1 of window 1

delay 1

keystroke w as text

delay 0.25

keystroke tab

keystroke tab

keystroke "mac " & i

delay 0.25

keystroke return

delay 1

end tell

end tell

set i to i + 1

end repeat

set file1 to quoted form of (POSIX path of ((choose file) as alias))

set file2 to quoted form of (POSIX path of ((choose file) as alias))

set mytempfile to "/tmp/a21239d511fe54d3b3ba661bc0a45a31.txt"

set thetext to (do shell script "cat " & file1 & " > " & mytempfile & ";echo ''>>" & mytempfile & ";cat " & file2 & " >>" & mytempfile & "; sort " & mytempfile)

set valueList to buildlist(thetext, tab)

repeat with i from 1 to count of every item of valueList

if i = 1 then

copy {item 1 of valueList} to finalvaluelist

else

if item 1 of item i of valueList = item 1 of last item of finalvaluelist then

set item 2 of last item of finalvaluelist to (item 2 of last item of finalvaluelist) + (item 2 of item i of valueList)

set item 3 of last item of finalvaluelist to (item 3 of last item of finalvaluelist) + (item 3 of item i of valueList)

else

copy finalvaluelist & {item i of valueList} to finalvaluelist

end if

end if

end repeat

set the clipboard to buildtext(finalvaluelist, tab)

display dialog "result is in clipboard"

on buildtext(llist, thedelimiter)

set AppleScript's text item delimiters to thedelimiter

repeat with i from 1 to count of llist

set item i of llist to item i of llist as text

end repeat

set AppleScript's text item delimiters to return

set llist to llist as text

set AppleScript's text item delimiters to ""

return llist

end buildtext

on buildlist(thetext, thedelimiter)

set thelines to every paragraph of thetext

set thevalues to {}

set AppleScript's text item delimiters to thedelimiter

repeat with theline in thelines

set tmp to every text item of theline

if (count of tmp) = 3 then

set thevalues to thevalues & {{item 1 of tmp, (item 2 of tmp) as integer, item 3 of tmp as integer}}

end if

end repeat

set AppleScript's text item delimiters to ""

return thevalues

end buildlist #

set thetext to (do shell script "tr '\r' '\n' <" & file1 & " > " & mytempfile & ";echo ''>>" & mytempfile & ";tr '\r' '\n' <" & file2 & " >>" & mytempfile & ";sort " & mytempfile)