//JScript example that shows how to mix scripting languages
vbscriptFragment = "LogMessage \"Hello from VBScript\"" ;
pythonScriptFragment = "Application.LogMessage( \"Hello from Python\" )" ;
jscriptFragment = "LogMessage(\"Hello from JScript\")" ;
Application.ExecuteScriptCode( vbscriptFragment, "VBScript" ) ;
Application.ExecuteScriptCode( pythonScriptFragment, "Python" ) ;
// Eval is a built-in JScript function that does the same thing 
// as Application.ExecuteScriptCode, but only for JScript code
eval( jscriptFragment ) ;
// Errors in the executed script are logged and returned
// to the caller, so you can catch and handle exceptions
try
{
        Application.ExecuteScriptCode( "Bad Script Code", "VBScript" ) ;
}
catch( e )
{
        LogMessage( "Script code failed: " + e.description ) ;
}
//Expected output:
//INFO : Hello from VBScript
//INFO : Hello from Python
//INFO : Hello from JScript
//ERROR : Expected end of statement - [line 1]
//INFO : Script code failed: Expected end of statement [Line 1 in Script Text]

'VBScript example that shows how to use mix scripting languages
vbscriptFragment = "LogMessage ""Hello from VBScript"" "
pythonScriptFragment = "Application.LogMessage( ""Hello from Python"" )" 
jscriptFragment = "LogMessage(""Hello from JScript"")" 
' Execute is a built-in VBScript function that does the same 
' thing as Application.ExecuteScriptCode, but only for VBScript code
Execute( vbscriptFragment)
Application.ExecuteScriptCode jscriptFragment , "JScript" 
'This line fails if Python is not installed
Application.ExecuteScriptCode pythonScriptFragment, "Python" 
' Errors in the executed script are logged and returned
' to the caller, so you can catch and handle exceptions
on error resume next
Application.ExecuteScriptCode "Bad Script Code", "VBScript" 
if err <> 0 then
        LogMessage "Script code failed: " & err.description 
end if
'Expected output:
'INFO : Hello from VBScript
'INFO : Hello from Python
'INFO : Hello from JScript
'ERROR : Expected end of statement - [line 1]
'INFO : Script code failed: Expected end of statement [Line 1 in Script Text]

// JScript example that shows how to call a simple VBScript function from JScript, 
// and how to pass in arguments and get the return value
var strVBRoutine = "function VBRound( in_var )\n" + 
                        "VBRound = Round( in_var )\n" + 
                        "end function" ;
var aArgs = new Array ;
aArgs[0] = 1.056879 ;
LogMessage( Application.ExecuteScriptCode( strVBRoutine, "VBScript", "VBRound", aArgs) ) ;
aArgs[0] = 99.9999 ;
LogMessage( Application.ExecuteScriptCode( strVBRoutine, "VBScript", "VBRound", aArgs) ) ;
// Expected results;
//INFO : 1
//INFO : 100