求执行DTSX包的vbs或批处理解决方案

若要运行包，可以使用 dtexec 命令提示实用工具 (dtexec.exe)，也可以使用 BI Development Studio。使用 dtexec 实用工具运行包 打开命令提示符窗口。使用更改目录命令 cd 将目录更改到包含 dtexec 实用工具的目录。dtexec 实用工具的默认位置为 <驱动器>:\Program Files\Microsoft SQL Server\100\DTS\Binn。在命令提示符下，键入以下命令：dtexec /f "C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\Change Data Capture Since Last Request Package Sample\Change Data Capture LSN Based Sample\SetupCDCSample.dtsx "按 Enter。有关如何使用 dtexec 实用工具运行包的详细信息，请参阅 SQL Server 联机丛书中的“dtexec 实用工具”主题。
------解决方案--------------------
楼主要在程序里调用吗?不管在哪里先要用createobject创建dts包的控件
VBScript code
Const DTSSQLStgFlag_Default = 0Const DTSStepExecResult_Failure = 1Const DTSSQLStgFlag_UseTrustedConnection = 256Set dtsRun = CreateObject("DTS.Package")dtsRun.LoadFromSQLServer"MySqlServerMa,e","","",DTSSQLStgFlag_UseTrustedConnection,"","","","MY-DTS-NAME"dtsRun.Execute()'some error checking.DTSresult = TrueFor Each dtsStage In dtsRun.StepsIf dtsStage.ExecutionResult = DTSStepExecResult_Failure ThenDTSresult = FalseMain = DTSTaskExecResult_Failureif (dtsRun.Tasks(dtsStage.TaskName).Description = "write errormessage" OR dtsRun.Tasks(dtsStage.TaskName).Description = "send email") thenDTSResult = Trueend ifElseEnd IfNext