Here's the script updated for 10.6

-- This script creates an ad-hoc network with a password and changes your
-- 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 : "MyAdHocNetwork"
property NetworkPassword : "thirteenchars"

property CreateMenuName : "Create Network…"

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 "Airport Menu Extra" 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 tab
			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

[ Reply to This | # ]

Great hint, I was getting tired of having to create the network, entering the password and selecting 128bit every time.

[ Reply to This | # ]

Had to modify it, somehow:

keystroke tab
keystroke tab

was not required in my configuration.
Thanks for the script anyways.
Suggested feature: check whether Airport is on and turn it on if not ;)

[ Reply to This | # ]

I have "Full Keyboard Access" turned on in System Preferences->Keyboard->Keyboard Shortcuts. That changes how many keystrokes are needed. Here's a version that shouldn't require that, and turns on the airport to boot.

-- This script creates an ad-hoc network with a password and changes your
-- network location.
--
-- This script mostly comes from StefanK:
--    http://bbs.macscripter.net/viewtopic.php?pid=99243

-- I just added network locations, passwords, bringup script, turning on the airport
-- and moved to directly addressing elements instead of using keystrokes.

-- 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).
-- If Desired, Set BringupScript to be the name of a script to invoke
-- in a terminal after the network is created.

property NetworkName : "MyAdHocNetwork"
property NetworkPassword : "thirteenchars"
property BringupScript : ""

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

tell application "System Events"
	tell process "SystemUIServer"
		tell menu bar 1
			-- Find Airport Menu
			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 "Airport Menu Extra" then exit repeat
			end repeat
			
			-- Turn on airport and start create network
			tell menu bar item the_menu
				perform action "AXPress"
				-- If Airport is off, turn it on
				if title of menu item 2 of menu 1 is "Turn Airport On" then
					perform action "AXPress" of menu item "Turn Airport On" of menu 1
					perform action "AXPress"
				end if
				perform action "AXPress" of menu item "Create Network…" of menu 1
			end tell
		end tell
		
		-- Enter information into Create Network Dialog
		tell window 1
			-- Require Password
			click checkbox 1
			
			-- Set to 128 bit WEP
			click pop up button 2
			click menu item 2 of menu 1 of pop up button 2
			
			-- Fill in information
			set value of text field 2 to NetworkPassword
			set value of text field 3 to NetworkPassword
			
			-- Set name last so OK button will be enabled (password field loses focus)
			set value of text field 1 to NetworkName
			
			-- Click OK
			click button 1
		end tell
	end tell
end tell

if BringupScript is not "" then
	tell application "Terminal"
		do script BringupScript
	end tell
end if

[ Reply to This | # ]