Bonjour,
Je reviens vers vous encore une foi, je cherche a tester l'accessibilité a une page web (accessible ou code 404), après plusieurs recherche sur le net voila ce que j'ai trouvé, [VBS & winsock] Test d'une page WEB

Mais problème il ne fonction pas (et je suis nul en vbs) toute aide sera la bienvenue merci d'avance.

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