URLsCocoaAS.applescript

use AppleScript version "2.4"
use framework "Foundation"
use scripting additions

set theBookmarks to current application's class "NSDictionary"'s dictionaryWithContentsOfFile:(POSIX path of (path to home folder) & "Library/Safari/Bookmarks.plist")
set bookmarksBar to missing value
repeat with theItem in (theBookmarks's objectForKey:"Children")
	if (theItem's objectForKey:"Title") as string is "BookmarksBar" then
		set bookmarksBar to theItem
		exit repeat
	end if
end repeat
if bookmarksBar is missing value then return
set folderInBookmarksBar to missing value
repeat with theItem in (bookmarksBar's objectForKey:"Children")
	if (theItem's objectForKey:"Title") as string is "Folder Item" then
		set folderInBookmarksBar to theItem
		exit repeat
	end if
end repeat
if folderInBookmarksBar is missing value then return
set theURLs to {}
repeat with theItem in (folderInBookmarksBar's objectForKey:"Children")
	set theURLs to theURLs & {(theItem's objectForKey:"URLString") as string}
end repeat