Bonjour,

Voilà, je cherche à pouvoir lancer l'exécution d'un script PHP depuis mon script VBS.

J'ai trouvé certaines infos sur des forums dont celui-ci, mais je ne n'arrive cependant toujours pas à obtenir le résultat escompté.

Voici mon code :
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
29
30
31
32
33
Option Explicit
On Error Resume Next
 
Dim objWinHttp, strURL
 
strURL = "C:/wamp/www/TraitementXML.php" 
 
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "GET", strURL
objWinHttp.Send
 
If objWinHttp.Status <> 200 Then
	Err.Raise 1, "HttpRequester", "Invalid HTTP Response Code"
End If
 
Set objWinHttp = Nothing
 
If Err.Number <> 0 Then
 
	Dim objMessage
	Set objMessage = Server.CreateObject("CDO.Message")
	objMessage.To       = "monadresse@hotmail.com"
	objMessage.From     = "monadresse@hotmail.com"
	objMessage.Subject  = "An Error Has Occurred in a " _
		& "Scheduled Task"
	objMessage.TextBody = "Error #: " & Err.Number & vbCrLf _
		& "From: " & Err.Source & vbCrLf _
		& "Desc: " & Err.Description & vbCrLf _
		& "Time: " & Now()
 
	objMessage.Send
	Set objMessage = Nothing
End If
Pour le moment quand je lance l’exécution, je n'observe pas grand chose :/
Donc si quelqu'un à des pistes ?

Merci d'avance