Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Create Network (for Lion)
property NetworkName : ""
property NetworkPassword : ""
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 is "AirMac Menu Extra" then exit repeat
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 "ネットワークを作成..." of menu 1
end tell
end tell
repeat until exists window 1
delay 0.5
end repeat
tell window 1
keystroke NetworkName
click pop up button 2
click menu item 4 of menu 1 of pop up button 2
keystroke NetworkPassword
keystroke tab
keystroke NetworkPassword
delay 0.5
click button 1
end tell
end tell
end tell
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.