Bonjour a tous.

Je dois réaliser un script permettant de tester si une page web fonctionne, ou si elle renvoit un code d'erreur 404. Je ne sais pas trop comment m'y prendre, et apres quelques recherche je pense que c'est possible en utilisant les sockets. Au final, j'aimerai ouvrir une connection sur un serveur HTTP et tester la page /main/index.html. J'ai récupéré en parti le script suivant et l'ai adapté : mais il ne fait que tester le port 80 d'un serveur (ça, ça marche). Est possible de récupérer un code d'erreur d'un page HTML? Comment faire pour recevoir et traiter ce code d'erreur? Je n'ai pas trouvé grand chose sur le sujet en vbs...

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
34
35
36
37
38
39
40
41
42
43
44
 
'Script tester une URL
 
'Constante de script
Const S_REMOTE_HOST = "10.169.66.XX"
Const S_REMOTE_PORT = "80"
Const url = "/main/index.html"
Const MSWS = "mswinsock.winsock"
 
'Objet socket
Dim oSck
 
'Compteur
Dim i
 
'Création de l'objet socket
Set oSck = CreateObject(MSWS)
 
'Initialisation des paramètres de connexion
oSck.RemoteHost = S_REMOTE_HOST
oSck.RemotePort = S_REMOTE_PORT
 
'Connexion au serveur
oSck.Connect
 
'Attente de réponse du serveur
While(oSck.State <> 7 And i < 1000)
    WScript.Sleep 10
    i=i+1
Wend
'Si la connexion est KO
If i >= 1000 Then
    msgbox "NOK"
Else
'Je ne comprend pas la ligne suivante
    oSck.SendData("GET " & url & "HTTP:/1.1")
    msgbox "ok "
End If
 
'Fermeture de la socket
oSck.Close
 
'Libération de la mémoire
Set oSck = Nothing
Merci pour vos réponses et bonne journée à tous.