Zitat:

Hier ein kleines Beispiel: ' 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 sHostname As String) As Single Dim QI As QOCINFO Dim vTime As Single   QI.dwSize = Len(QI) vTime = Timer If IsDestinationReachable(sHostname, QI) = 1 Then Ping = Timer - vTime Else Ping = -1 End If End Function Aufruf: Dim nTime As Single nTime = Ping("\\rechnername") If nTime <> - 1 Then MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden" Else MsgBox "Server nicht erreichbar!" End If