Create Network (for Lion)

Create Network.scpt

property NetworkName : ""
property NetworkPassword : ""

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 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