Server anpingen und Reaktionszeit ermitteln Wie man einen Server auf Erreichbarkeit prüft und zudem die Antwortzeit ermittelt, zeigt dieser Code.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  28.240
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 59 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man einen Server auf Erreichbarkeit prüft und zudem ermittelt, wie lange der Server für die Antwort benötigt, zeigt nachfolgender Tipp:

Option Explicit
 
' Benötigte API-Deklaration
Private Declare Function IsDestinationReachable Lib "Sensapi.dll" _
  Alias "IsDestinationReachableA" ( _
  ByVal lpszDestination As String, _
  lpQOCInfo As QOCINFO) As Long
 
Private Type QOCINFO
  dwSize As Long
  dwFlags As Long
  dwInSpeed As Long
  dwOutSpeed As Long
End Type

' Server anpingen und Reaktionszeit zurückgeben
Public Function Ping(ByVal sHost As String) As Single
  Dim QI As QOCINFO
  Dim vTime As Single
 
  QI.dwSize = Len(QI)
  vTime = Timer
  If IsDestinationReachable(sHost, QI) = 1 Then
    Ping = Timer - vTime
  Else
    Ping = -1
  End If
End Function

Anwendung:
Verwenden Sie im lokalen LAN für sHost immer den Rechnernamen:

Dim nTime As Single 
nTime = Ping("\\rechnername") 
If nTime <> - 1 Then 
  MsgBox "Rechner erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden" 
Else 
  MsgBox "Rechner nicht erreichbar!" 
End If

Um die Reaktionszeit eines Webservers zu testen können Sie entweder die IP-Adresse des Servers oder den Hostnamen verwenden:

Dim nTime As Single 
nTime = Ping("vbarchiv.net") 
If nTime <> - 1 Then 
  MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden" 
Else 
  MsgBox "Server nicht erreichbar!" 
End If

Oder...

Dim nTime As Single 
nTime = Ping("217.160.105.148") 
If nTime <> - 1 Then 
  MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden" 
Else 
  MsgBox "Server nicht erreichbar!" 
End If