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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBS : Connaitre temps de réponse requête HTTP via proxy

Tang55

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 :

rtime = CheckHost("http://www.pmu.fr" )
wscript.echo "Response Time : " & rtime & " msec"
Function CheckHost(host)
dim startdate
Dim objXmlHttp
Set objXmlHttp = CreateObject("Msxml2.ServerXMLHTTP.4.0" )
lResolve = 1 * 1000
lConnect = 5 * 1000
lSend = 10 * 1000
lReceive = 10 * 1000
objXmlHttp.setProxy 2, "http=monproxy:80", ""
startdate = now
t1 = timer
objXmlHttp.open "GET", host , False
objXmlHttp.send
If Err.number = 0 and objXmlHttp.status >= 200 then
Result = "OK"
else
Result = "Error"
end if
t2 = timer
Set objXmlHttp = Nothing
CheckHost = TimeDiff(t2,t1)
End Function
Function TimeDiff(iEnd, iStart)
Dim iReturn
iReturn = iEnd - iStart
TimeDiff = 1000 * iReturn
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

Publicité

rufo

Pas me confondre avec Lycos!

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

Tang55

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é"...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Erreur HTTP 500 (Internal Server Error) sur un dossier	[VBS] boucle do while not pour tester le mappage d'un lecteur
Temps d'éxécution requête Oracle Sql trop longue	Éditeur pour programmer à 2 en même temps
[VB/VBA/VBS]Trouver une référence dans plusieurs centaines de word	probleme reponse a l'excecution d'une commande par code
[Résolu] Simplification de requete SQL	Requete SQL double résultat
Requete insertion
Plus de sujets relatifs à : VBS : Connaitre temps de réponse requête HTTP via proxy

Page générée en 0.042 secondes