adhoc.applescript

property NetworkName : "iPhone"
--property NetworkPassword : "1234567890123"

property CreateMenuName : "ネットワークを作成..."

#try
#   do shell script "/usr/sbin/scselect " & NetworkName
#   delay 2
#end try

tell application "System Events"
    tell process "SystemUIServer"
        tell menu bar 1
            set menu_extras to value of attribute "AXDescription" of menu bar items
            repeat with the_menu from 1 to the count of menu_extras
                if item the_menu of menu_extras begins with "Wi-Fi" then exit repeat
            end repeat
            tell menu bar item the_menu
                perform action "AXPress"
                delay 0.2
                perform action "AXPress" of menu item CreateMenuName of menu 1
            end tell
        end tell
        repeat until exists window 1
            delay 0.5
        end repeat
        tell window 1
            keystroke NetworkName
            --click checkbox 1
            --keystroke NetworkPassword
            keystroke tab
            --keystroke NetworkPassword
            click pop up button 2
            click menu item 2 of menu 1 of pop up button 2
            delay 0.5

            click button 1
        end tell
    end tell
end tell