Déclencher mon DTS via ASP : problème
Hello,
J'essaie de lancer un package DTS via de l'ASP (pas NET).
J'utilise le code suivant, qui s'avère juste après de nombreuses vérifications et croisements (j'ai caché les logins):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| <%
Const DTSSQLStgFlag_Default = 0
Const DTSStepExecResult_Failure = 1
Dim oPkg, oStep, sMessage, bStatus
Set oPkg = Server.CreateObject("DTS.Package2")
oPkg.LoadFromSQLServer "monserver","login","passwd", DTSSQLStgFlag_Default,"","","","DTSDemo"
oPkg.Execute()
bStatus = True
For Each oStep In oPkg.Steps
sMessage = sMessage & "<p class=""StandardBody"" align=""center""> Step [" & oStep.Name & "] "
If oStep.ExecutionResult = DTSStepExecResult_Failure Then
sMessage = sMessage & " failed<br>"
bStatus = False
Else
sMessage = sMessage & " succeeded<br>"
End If
sMessage = sMessage & "Task """ & oPkg.Tasks(oStep.TaskName).Description & """</p>"
Next
If bStatus Then
sMessage = sMessage & "<p class=""StandardBody"" align=""center"">Package [" & oPkg.Name & "] succeeded</p>"
Else
sMessage = sMessage & "<p class=""StandardBody"" align=""center"">Package [" & oPkg.Name & "] failed</p>"
End If
Response.Write sMessage
%> |
Mon problème c'est que j'ai toujours un retour en FAILURE. Mon job est ok (job de test simple qui se lance en local).
J'ai aussi ajouté les users ISS machine\IUSR_machine et machine\IWAM_machine dans les accès à SQL server.
Avez vous une suggestion please ?
Merci
VinZent
