Récupération source d'une page HTML en VBS

Bonjour cher compatriote !

Je fais appel à vous car un problème est venu à moi, je souhaite récupérer le source d'une page HTML/PHP dans une page VBS.
J'ai essayé ça, mais ce n'est pas concluant !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Set objFso = CreateObject("Scripting.FileSystemObject")
 
alancer = "C:\wamp\www\coucou.bat"
 
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", "http://localhost/demande.php", FALSE)
objHTTP.Send
resultat = instr(objHTTP.ResponseText, "body")
wscript.echo resultat
 
Set WshShell = WScript.CreateObject("WScript.Shell")  
appel = "cmd /c """ & alancer & """"
codeRetour = WshShell.run(appel, 1, true)
 
REM Si codeRetour = 1 -> erreur
REM Si codeRetour <> 1 (-1073741510) -> réussi
Wscript.echo codeRetour

Edit:
Je souhaiterais avoir ce code en VBS ^^

Code:

1
2
3
4
5
6
7
8
9
 
$curl_handle=curl_init();
curl_setopt($curl_handle, CURLOPT_URL,'localhost/demande.php');
curl_setopt($curl_handle, CURLOPT_CONNECTTIMEOUT, 2);
curl_setopt($curl_handle, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($curl_handle, CURLOPT_USERAGENT, 'Mozilla/5.0');
$recup = curl_exec($curl_handle);
curl_close($curl_handle);
$res = htmlentities($recup);

Merci de de votre aide :)