![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
#2
| |||
| |||
|
|
I have a DTS package that is run from a web UI via xp_cmdshell and DTSRUN, I'm getting an Active X script error on one of my steps only when run through the web app, running from QA works fine... TREAD report generation failed. DTSRun OnError: DTSStep_DTSActiveScriptTask_1, Error = -2147220482 (800403FE) Error string: ActiveX Scripting encountered a Run Time Error during the execution of the script. Error source: Microsoft Data Transformation Services (DTS) Package Error Detail Records: Error: -2147220482 (800403FE); Provider Error: 0 (0) Error string: ActiveX Scripting ... H DEATH INJURY I've read this article, I don't have a DefaultAcessPermissions registry key... http://support.microsoft.com/default...;EN-US;q298725 Here's the script for the step thats failing... Also We've set the proxy account for the SQL Agent job system so non-sysadmins can run this dts package via xp_cmdshell the account has the proper permissions... Any ideas on what could be the problem....? '************************************************* ********************* ' Visual Basic ActiveX Script '************************************************* *********************** Function Main() Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(DTSGlobalVariables("TemplateUNC").V alue & "Working\H_DEATHINJURY.XLS") Then fso.DeleteFile DTSGlobalVariables("TemplateUNC").Value & "Working\H_DEATHINJURY.XLS" End If fso.CopyFile DTSGlobalVariables("TemplateUNC").Value & "Templates\H_DEATHINJURY.XLS", DTSGlobalVariables("TemplateUNC").Value & "Working\H_DEATHINJURY.XLS" Set fso = Nothing Main = DTSTaskExecResult_Success End Function |
![]() |
| Thread Tools | |
| Display Modes | |
| |