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 : Sélectionner tout - Visualiser dans une fenêtre à part
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