Applescript for creating a network at start-up

Question

Everytime I start up my mac the network I created is gone and I have to create a new one.
So I want to create an applescript that I can use as start-up item (application)
I found an applescript on the net but that one isn't working on my mac. So I changed it a little.
It works for "turn airport on" (instead of "Open Network Preferences...")
But "Open Network Preferences..." is below a grey line.
What am I doing wrong?
property CreateMenuName : "Create Network…"
property NetworkName : "Net"
property NetworkPassword : "paswd"
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 "Open Network Preferences..." of menu 1
  end tell
  end tell
  repeat until exists window 1
                              delay 0.5
  end repeat
  tell window 1
  click checkbox 1
  click pop up button 2
  click menu item 2 of menu 2 of pop up button 2
  click checkbox 1
  set value of text field 2 to NetworkPassword
  set value of text field 3 to NetworkPassword
  set value of text field 1 to NetworkName
  click button 1
  end tell
  end tell
end tell

Answer 1

Well in another discussion I got the answer of keeping your self created network when closing and starting up your mac. The created network will be remembered in System Preferences/Sharing/Internet Sharing/Airport options.
But somehow it needs to be activated. And you can do that by un-clicking "Internet Sharing" and clicking it again and click "Start" So with thanks to BDAqua I came to the following Automator workflow to be saved as an application which you can put in System Preferences/Accounts/ login-items.
on run {input, parameters}
tell application "System Preferences"
activate
end tell
tell application "System Events"
tell process "System Preferences"
click menu item "Sharing" of menu "View" of menu bar 1
delay 2
tell window "Sharing"
click checkbox 1 of row 10 of table 1 of scroll area 1 of group 1
delay 1
if (exists sheet 1) then
if (exists button "Turn AirPort On" of sheet 1) then
click button "Turn AirPort On" of sheet 1
delay 1
end if
click button "Start" of sheet 1
end if
end tell
end tell
end tell
tell application "System Preferences"
activate
end tell
tell application "System Events"
tell process "System Preferences"
click menu item "Sharing" of menu "View" of menu bar 1
delay 2
tell window "Sharing"
click checkbox 1 of row 10 of table 1 of scroll area 1 of group 1
delay 1
if (exists sheet 1) then
if (exists button "Turn AirPort On" of sheet 1) then
click button "Turn AirPort On" of sheet 1
delay 1
end if
click button "Start" of sheet 1
end if
end tell
     end tell
end tell
tell application "System Preferences"
quit
end tell
return input
end run