Illustrator CS6 set defaults to inches

Question

In Illustrator you can set inches for the units by doing the following:
Go under "Illustrator Menu"
Select "Units " under "Preferences" menu item
Set "Stroke" to inches
Set "Type" to inches
How can I make a startup script so those values are set to inches for "Stroke" and "Type"??   So when a student makes a new document its already set to inches.
For Indesign I did the following with Applescript:
tell application "Adobe InDesign CS6"
          tell view preferences
                    set ruler origin to page origin
                    set horizontal measurement units to inches
                    set vertical measurement units to inches
          end tell
end tell
Can't get it scripted for Illustrator to default to inches.  Anyone have any idea on how I would go about scripting this?
tell application "Adobe Illustrator"
     tell startup presets
          set ruler units to inches
     end tell
end tell
Or something along those lines........

Answer 1

CarlosCanto wrote:
hi dball, here you go, it works beautifully in Windows, Ai CS5. Let us know if you can translate it to mac
'change stroke and type units to inches
' vbs by carlos canto
Set objShell = CreateObject("WScript.Shell")
objShell.SendKeys "%E"
objShell.SendKeys "N"
objShell.SendKeys "U"
objShell.SendKeys "%S"
For i = 1 To 8
  objShell.SendKeys "{UP}"
Next
For i = 1 To 2
  objShell.SendKeys "{DOWN}"
Next
objShell.SendKeys "%T"
For i = 1 To 8
  objShell.SendKeys "{UP}"
Next
objShell.SendKeys "{DOWN}"
objShell.SendKeys "{ENTER}"
This is probably sloppy code (I'm not a programmer/scripter) and the script works differently if run from Applescript Editor or double clicking the script on the desktop.   I have it configured so you can double click it on the desktop and this would work for me because the settings for Illustrator on every login for students would be default, so this script should work fine.  If you run it again under the same login then its not right, but I would assume the same goes for your script.  I was thinking this whole time that Illustrator had a Startup Scripts folder like InDesign so thats fail. 
tell application "Adobe Illustrator"
     activate
end tell
delay 10
tell application "Finder"
     activate
end tell
tell application "System Events"
          tell application process "Adobe Illustrator"
       tell menu bar 1
            tell menu bar item "Illustrator"
                 tell menu "Illustrator"
                                                                      tell menu item "Preferences"
                                                                                     tell menu "Preferences"
                                                                                                    click menu item "Units..."
                                                                                     end tell
                                                                      end tell
                                                       end tell
                                        end tell
                         end tell
          end tell
end tell
-- The commented code below could be the more simple way of doing whats above this line.
tell application "Adobe Illustrator"
          activate
          tell application "System Events"
                    tell application process "Adobe Illustrator"
                              keystroke "," using command down
                    end tell
          end tell
end tell
tell application "Adobe Illustrator"
     activate
end tell
tell application "System Events"
     tell application process "Adobe Illustrator"
       keystroke tab
       select "Units"
       keystroke tab     -- Sure there is a better way to have all these tabs on one line didn't look into it.
       keystroke tab
       keystroke tab
       keystroke tab
       keystroke space
       key code 125    -- down arrow
       key code 125    -- down arrow
       keystroke return
       keystroke tab
       keystroke space
       key code 125    -- down arrow
       keystroke return
       keystroke tab
       keystroke tab
       keystroke tab
       keystroke tab
       keystroke tab
       keystroke return
     end tell
end tell