VBS : Connaitre temps de réponse requête HTTP via proxy

VBS : Connaitre temps de réponse requête HTTP via proxy - VB/VBA/VBS - Programmation

Marsh Posté le 03-08-2012 à 16:29:06    

Bonjour à tous,
 
Je souhaite créer un script VBS qui me permettra de garder l'oeil sur les performances du surf (http) de mon accès web
Le rôle de ce script VBS sera d'effectuer une requête HTTP de type GET pour une URL donnée afin de récupérer le temps de réponse (en ms).
 
La contrainte ici est que la requête doit passer par un proxy avec authentification.
 
Voici ce que j'ai fait pour le moment :
 
 

Code :
  1. rtime = CheckHost("http://www.pmu.fr" )
  2. wscript.echo "Response Time : " & rtime & " msec"
  4. Function CheckHost(host)
  5. dim startdate
  6. Dim objXmlHttp
  7. Set objXmlHttp = CreateObject("Msxml2.ServerXMLHTTP.4.0" )
  8. lResolve = 1 * 1000
  9. lConnect = 5 * 1000
  10. lSend = 10 * 1000
  11. lReceive = 10 * 1000
  12. objXmlHttp.setProxy 2, "http=monproxy:80", ""
  13. startdate = now
  14. t1 = timer
  15. objXmlHttp.open "GET", host , False
  16. objXmlHttp.send
  18. If Err.number = 0 and objXmlHttp.status >= 200 then
  19. Result = "OK"
  20. else
  21. Result = "Error"
  22. end if
  24. t2 = timer
  25. Set objXmlHttp = Nothing
  26. CheckHost = TimeDiff(t2,t1)
  28. End Function
  30. Function TimeDiff(iEnd, iStart)
  31. Dim iReturn
  32. iReturn = iEnd - iStart
  33. TimeDiff = 1000 * iReturn
  34. End Function


 
 
Ce script vous parait-il correct ? Comment faire pour spécifier le login/mdp pour l'authentification proxy ? (après différentes recherches je n'ai pas trouvé)
 
 
Merci d'avance !


Message édité par Tang55 le 03-08-2012 à 23:12:32
Reply

Marsh Posté le 03-08-2012 à 16:29:06   

Reply

Marsh Posté le 03-08-2012 à 16:54:08    

utilises la balise code plutôt que spoiler ;)
 
Et utiliser la commande ping qui renvoie le temps de réponse, ça pourrait pas le faire?


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Reply

Marsh Posté le 03-08-2012 à 23:13:47    

Tout d'abord merci pour ta réponse :)
 
Je préférerais utiliser du HTTP au lieu d'ICMP, pour être le plus proche de la  "réalité"...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed