>>507
ファイルメーカを持っていないので検証できないんですが、
---

tell application "Netscape Communicator (tm)"
set a to list windows
set infolist to get window info item 1 of a
end tell

set urlinfo to first item of infolist
set titleinfo to second item of infolist

tell application "ファイルメーカー Pro"
set cell "adoresu" of current record of database "URL_locator.fmj" to urlinfo
set cell "taitoru" of current record of database "URL_locator.fmj" to titleinfo
end tell
on error
beep
display dialog "Internet ExplorerでWebベージを開いてからもう一度スクリプト実行して下さい。" buttons {"OK"} default button "OK" with icon note
end try
---
で恐らく動作すると思います。