tell application "System Events"
set theURIstrings to {"http://somewhere.someplace.somehow.org", "http://somewhere.someplace.somehow.org"}
repeat with anURIString in theURIstrings
set theUUID to do shell script "uuidgen"
tell application "Finder" to set titleString to text returned of (display dialog "This is the title that will appear in the Bookmarks menu." with title "Bookmark Title Dialog" default answer "Title for my Bookmark" buttons {"Cancel", "OK"} default button 1)
-- Change the following line to the location of your copy of the Bookmark.plist file
set thePlistFile to property list file "/Users/test/Desktop/Bookmarks.plist"
tell property list item "Children" of contents of thePlistFile
set theMenuXML to item 1 of (every property list item whose ((property list item "Title")'s value is "BookmarksMenu"))
tell theMenuXML's property list item "Children"
set newDict to make new property list item at end of property list items with properties {kind:record}
tell newDict
set URIDict to make new property list item at end of property list items with properties {kind:record, name:"URIDictionary"}
tell URIDict
make new property list item at end of property list items with properties {kind:string, name:"title", value:titleString}
end tell
make new property list item at end of property list items with properties {kind:string, name:"URLString", value:anURIString}
make new property list item at end of property list items with properties {kind:string, name:"WebBookmarkType", value:"WebBookmarkTypeLeaf"}
make new property list item at end of property list items with properties {kind:string, name:"WebBookmarkUUID", value:theUUID}
end tell
end tell
end tell
end repeat
end tell
