Script to export a script as run-only via AppleScript Editor

Question

Hi,
I have written a script that's creating a new script and than save it to the desktop as run-only.
Now Apple has re-written the rules of AppleScript Editor so the run-only command had to go via 'Export' (and not 'Save' anymore).
I can't figure out how to script it now... I even tried to script the menu's but that's only possible for all menu's without '...' ending it. For example: 'File > New' is scriptable, but 'File > Export...' is not.
Script 1 is the script I want to get working, but if scripting the Export of AppleScript Editor is not possible, I want to get de workaround of Script 2
Script 1:
==================================================
set myScript to "
set studentnumber to \"" & studentnumber & "\"
set password to \"" & password & "\"
tell application \"Safari\"
tell application "AppleScript Editor"
activate
make new document with data myScript
          save document 1 as "application" in file ((path to desktop as Unicode text) & "Automatisch Inloggen op GLR.app") with run only
-- save doesn't work anymore and has to be EXPORT...
          return
close document 1
end tell
=================================================
Script 2 (workaround, but doesn't work either)
tell application "AppleScript Editor" to activate
menu_click({"AppleScript Editor", "File", "Export..."})
-- 'File > New' works but 'File > Export... not'
on menu_click(mList)
          local appName, topMenu, r
-- Validate our input
          if mList's length < 3 then error "Menu list is not long enough"
-- Set these variables for clarity and brevity later on
          set {appName, topMenu} to (items 1 through 2 of mList)
          set r to (items 3 through (mList's length) of mList)
-- This overly-long line calls the menu_recurse function with
-- two arguments: r, and a reference to the top-level menu
          tell application "System Events" to my menu_click_recurse(r, ((process appName)'s ¬
                    (menu bar 1)'s (menu bar item topMenu)'s (menu topMenu)))
end menu_click
on menu_click_recurse(mList, parentObject)
          local f, r
-- `f` = first item, `r` = rest of items
          set f to item 1 of mList
          if mList's length > 1 then set r to (items 2 through (mList's length) of mList)
-- either actually click the menu item, or recurse again
          tell application "System Events"
                    if mList's length is 1 then
  click parentObject's menu item f
                    else
                              my menu_click_recurse(r, (parentObject's (menu item f)'s (menu f)))
                    end if
          end tell
end menu_click_recurse

Answer 1

Applescript has changed a little. You can now save uncompiled scripts, but it would make no sense to save an uncompiled script as read-only, so trying to do that fails. Add a compile command before the save:
tell application "AppleScript Editor"
  activate
          set doc to make new document with data myScript
  compile doc
          save doc as "application" in ((POSIX path of (path to desktop)) & "Automatisch Inloggen op GLR.app") with run only
          return
  close doc
end tell