Subversion Repositories DevTools

'   Create a Windows scripting object and set special EnvVars to allow the script to access the oracle database

'   Export connection credentials as EnvVars. This is better than hard coding them

'   Returns an object

Function createWscriptShell()

    Dim wshSystemEnv, objWSH

    Set objWSH = Server.CreateObject("WScript.Shell")

    '   Set EnvVars

    Set wshSystemEnv = objWSH.Environment( "Process" )

    wshSystemEnv("ORA_DATABASE") = Application("TNS_NAME")

    wshSystemEnv("ORA_CONNECTION") = Application("DEPLOYMENT_MANAGER_LOGIN")

    Set createWscriptShell = objWSH

    Set wshSystemEnv = nothing

    Set objWSH = nothing

End Function