SAS Enterprise Guide: Scripting

option explicit

dim app
dim project
dim sasProgram
dim i

Set app = createObject("SASEGObjectModel.Application.7.1")

app.SetActiveProfile("tq84-Server")

set project = app.new 
set sasProgram = project.CodeCollection.Add
 
' set the results types, overriding app defaults
sasProgram.UseApplicationOptions = false
sasProgram.genListing            = true
sasProgram.genSasReport          = false
 
sasProgram.server = "SASApp"
sasProgram.text   = "proc means data=sashelp.cars; run;"
 
sasProgram.run
sasProgram.log.saveAs "c:\temp\outputAuto.log"
 
for i=0 to (sasProgram.results.count -1)

 ' Listing type is 7
   if sasProgram.results.item(i).type = 7 then
 ' Save the listing file to LOCAL disk
     sasProgram.results.item(i).saveAs "c:\temp\outputAuto.lst"
   end if
next

app.quit

c:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe /codebase "c:\Program Files\SASHome\SASEnterpriseGuide\7.1\sasegscripting.dll"