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