ActiveX Scripting Error 2147220482 (800403FE) in DTS package..
From: alien2_51 (dan.billow"at"n.o.s.p.a.m.monacocoach.commercialversion)
Date: 09/15/04
- Next message: alien2_51: "Re: ActiveX Scripting Error 2147220482 (800403FE) in DTS package.."
- Previous message: Brian Piotrowski: "Exporting DTS Packages to Other SQL Servers`"
- Next in thread: alien2_51: "Re: ActiveX Scripting Error 2147220482 (800403FE) in DTS package.."
- Reply: alien2_51: "Re: ActiveX Scripting Error 2147220482 (800403FE) in DTS package.."
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 15 Sep 2004 11:42:14 -0700
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.aspx?scid=kb;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").Value &
"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
- Next message: alien2_51: "Re: ActiveX Scripting Error 2147220482 (800403FE) in DTS package.."
- Previous message: Brian Piotrowski: "Exporting DTS Packages to Other SQL Servers`"
- Next in thread: alien2_51: "Re: ActiveX Scripting Error 2147220482 (800403FE) in DTS package.."
- Reply: alien2_51: "Re: ActiveX Scripting Error 2147220482 (800403FE) in DTS package.."
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|