-- network location.
--
-- I just added network passwords and network locations to a script which
-- comes from StefanK:
--    http://bbs.macscripter.net/viewtopic.php?pid=99243
-- Set NetworkName to be the name of the wireless network you wish
-- to create.  This will also attempt to set the network location
-- to that name as well.
-- Set NetworkPassword to be your wireless network password.  It MUST BE
-- 13 characters long (or 26 hex digits).

property NetworkName : "C-zu-C-Netzwerk"
property NetworkPassword : "dreizehnZeich"
property CreateMenuName : "Netzwerk anlegen …"

-- Airport aktivieren
do shell script "networksetup -setairportpower en1 on"
-- 
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 contains "Airport" 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 tab
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