WebRequest pour vérifier le serveur

Question

J'essaie de vérifier si mon serveur (serveur local) est en haut ou en bas. Je veux passer mon nom du serveur: myDEVServer12 (http://www.example.com/ss.asp)

Public Function CheckServer(ByVal ServerName As String) As Boolean 
    Try 
     Dim request As WebRequest = WebRequest.Create(ServerName) 
     Dim response As WebResponse = request.GetResponse() 
     imgServer1.ImageUrl = ("~/Images/green_light.png") 
    Catch ex As Exception 
     imgServer1.ImageUrl = ("~/Images/red_light.png") 
     Return False 
    End Try 
    Return True 
End Function 

J'ai essayé aussi d'utiliser ping. Il fonctionne, mais la page prend beaucoup de temps à charger (4 serveurs)

Dim ping As New Ping 
Try 
    Dim pingreply = ping.Send(lblServer1.Text, 2000) 
    If pingreply.Status = IPStatus.Success Then 
     imgServer1.ImageUrl = ("~/Images/green_light.png") 
    Else 
     imgServer1.ImageUrl = ("~/Images/red_light.png") 
    End If 
Catch ex As Exception 
    imgServer1.ImageUrl = ("~/Images/red_light.png") 
End Try 

Answer 1

Dim myRequest As WebRequest = WebRequest.Create("http://www.google.com") 
' Return the response. 
Dim myResponse As String = myRequest.GetResponse().ContentType().ToString() 
MsgBox(myResponse)