tell application "Safari"
activate
set the URL of document 1 to "http://www.XXXXXXX.com"
my new_tab()
set the URL of document 1 to "http://www.XXXXXX.com"
end tell
on new_tab()
tell application "Safari" to activate
tell application "System Events"
tell process "Safari"
«event prcsclic» «class menI» "New Tab" of «class menE» "File" of «class mbar» 1
end tell
end tell
end new_tab
Replace the X's with whatever sites you want and keep repeating the code (my new_tab() and set the URL... lines) for each page you'd like to have open. I am sure that there is a much better way to do it, but I have no clue what I am doing and it only took me five minutes to write. The "new_tab" code was "borrowed" from Apples "Combine Windows" script. Sorry if it offends anybody and please don't sue me.Mine opens up 10 pages and works great.
Also this requires that you have installed the UI Scripting Beta. Finally, you need to be sure that the "Enable access for assistive devices" option is checked in the Universal Access System Pref Panel.
[robg adds: The script works as expected (quite cool, actually!), though I haven't used it as an app yet (just ran it from ScriptEditor).]

