Set sh = WScript.CreateObject("WScript.Shell") 
Set fs = CreateObject("Scripting.FileSystemObject") 

sh.Run "%comspec% /c ping -n 1 ""jacxl.free.fr"" > c:\rien.txt",0,true

Set fich = fs.OpenTextFile("C:\rien.txt", 1, false) 
txt=fich.readall 
fich.close 
set fich=nothing
fs.deletefile("c:\rien.txt")
set fs=nothing
set sh=nothing

if instr(txt,"perdus = 0")>0 then
msgbox ("le site JacXL est accessible")
else
msgbox ("le site JacXL n'est pas accessible actuellement")
end if

WScript.Quit