I have this task scheduled as job, why it does not execute?

.....

Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New
("DTSActiveScriptTask")
Set objScripTask = objTask.CustomTask
objScripTask.Name = "AXScr_Task" &
iProcessTaskNum
'-----*-----*-----*-----*-----*-----*-----*
' This is the script used by the next
Available Task.
' Step 1 : Create connection 0, 1
' Connection 0 for DL
' Connection 1 for Package executions
' Step 2 : Run the Package and check for errors
' Step 3: Close connections and set the Task
Processor to NONE.
'-----*-----*-----*-----*-----*-----*-----*
objScripTask.ActiveXScript = _
"Dim objConnection(1), objRecordSet(1),
objErrorSet(1)"& vbCrLf & _
"Const DL_PathHead = " & dDQuotes
& "i:\shares" & dDQuotes & vbCrLf & _
"Const iProcessTaskNum = " &
iProcessTaskNum & vbCrLf & _
"Const DL_LocalTest = False " & vbCrLf &
_
"Const sServerName = " & dDQuotes &
sServerName & dDQuotes & vbCrLf & _
"Const DL_DBName = ""DL"" " & vbCrLf & _
"Const DL_UserID = ""mmrsbatch"" " &
vbCrLf & _
"Const DL_Password = ""nightowl"" " &
vbCrLf & _
"Const DBName = """ & DBName & """ " &
vbCrLf & _
"Const Schema = """ & Schema & """ " &
vbCrLf & _
"Const Password = """ & Password & """ "
& vbCrLf & _
"Const conTransLogLimit = 50 " & vbCrLf
& _
"Function Main()" & vbCrLf & _
"Dim strProblem, strSolution,
intSeverityNum, sqlUpdateTimeStop" & vbCrLf & _
"CreateConnectionObjects 0" &
vbCrLf & _
"OpenSQLConnection 0, sServerName,
DL_DBName, DL_UserID, DL_Password" & vbCrLf & _
"CreateConnectionObjects 1" &
vbCrLf & _
"OpenSQLConnection 1, sServerName,
DBName, Schema, Password" & vbCrLf & _
"objConnection(1).CommandTimeout =
0 " & vbCrLf & _
"RunPackage = " & dDQuotes &
DBName & "." & Schema & "." & Package & dDQuotes & vbCrLf
& _
"Set objRecordSet(1) =
objConnection(1).Execute(RunPackage)" & vbCrLf & _
"If objConnection(1).Errors.Count
objConnection(1).Errors" & vbCrLf & _
"strProblem =
objErrorSet.Description" & vbCrLf & _
"Next" & vbCrLf & _
"intSeverityNum = 5" &
vbCrLf & _
"strSolution = ""Contact
("" & RunPackage & "") SP Developer!"" " & vbCrLf & _
"ErrorHandle
intSeverityNum, strProblem, strSolution " & vbCrLf & _
"Else " & vbCrLf & _
"objConnection
(0).CommandTimeout = 0" & vbCrLf & _
"sqlUpdateTimeStop
= ""dl.dbo.up_updTb_SPUpTimes _ "" " & vbCrLf & _
" Package & "",""&
Company & "",stop"" " & vbCrLf & _
"Set objRecordSet(0) =
objConnection(0).Execute(sqlUpdateTimeStop)" & vbCrLf & _
" End If " & vbCrLf & _
"DTSGlobalVariables(""UPSProc" &
iProcessTaskNum & """).Value = ""NONE"" " & vbCrLf & _
" objConnection(1).Errors.Clear "
& vbCrLf & _
" objConnection(1).Close " &
vbCrLf & _
"CloseObject 0" & vbCrLf & _
"Main = DTSTaskExecResult_Success"
& vbCrLf & _
"End Function" & vbCrLf & _
"Private Sub CreateConnectionObjects
(intConnectionNum)" & vbCrLf & _
"On Error Resume Next " & vbCrLf &
_
"Set objConnection
(intConnectionNum) = CreateObject(""ADODB.Connection"") "
& vbCrLf & _
"Set objRecordSet
(intConnectionNum) = CreateObject(""ADODB.Recordset"") "
& vbCrLf & _
"Set objErrorSet(intConnectionNum)
= CreateObject(""ADODB.Error"") " & vbCrLf & _
"End Sub " & vbCrLf & _
"Private Sub CloseObject(Instance)" &
vbCrLf & _
"Set objRecordSet(Instance) =
Nothing " & vbCrLf & _
"Set objConnection(Instance) =
Nothing " & vbCrLf & _
"End Sub " & vbCrLf & _
"Private Sub OpenSQLConnection(Instance,
ServerName, DatabaseName, UserName, Password)" & vbCrLf & _
"On Error Resume Next" & vbCrLf & _
"objConnection(Instance).Provider
= ""sqloledb"" " & vbCrLf & _
"objConnection(Instance).Properties
(""Data Source"").Value = ServerName" & vbCrLf & _
"objConnection(Instance).Properties
(""Initial Catalog"").Value = DatabaseName" & vbCrLf & _
"objConnection(Instance).Properties
(""User ID"").Value = UserName" & vbCrLf & _
"objConnection(Instance).Properties
(""Password"").Value = Password" & vbCrLf & _
"objConnection(Instance).Open " &
vbCrLf & _
"End Sub"



objScripTask.FunctionName = "Main"

objScripTask.ScriptLanguage = "VBScript"
objScripTask.AddGlobalVariables = "True"
'link step to task to package

objStep.sTaskName = objScripTask.Name
objStep.Name = "AXScr_Step" & iProcessTaskNum

objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask
objPackage.Steps(objScripTask.Name).Execute
objPackage.FailOnError = False