You can also execute a DTS package from within an ActiveX Script...

Function Main()

'Declare variables

  Dim objPkg

  'Create and Execute the package

  Set objPkg = CreateObject("DTS.Package")

  objPkg.LoadFromSQLServer _

            "YourServerName", , , _

            DTSSQLStgFlag_UseTrustedConnection,,,, _

            "YourDTSPackageName"

  objPkg.Execute

  'Clean-up objects

  Set objPkg = Nothing

  Main = DTSTaskExecResult_Success

End Function

You could add as many objPkg as needed within the same ActiveX Script to create a simple batch process.