Private Declare Function IsDestinationReachable Lib "Sensapi.dll" Alias _
  "IsDestinationReachableA" (ByVal lpszDestination As String, IpQOInfo As _
  QOCINFO) As Long
 
Private Type QOCINFO
 
    dwSize As Long
    dwFlags As Long
    dwInSpeed As Long
    dwOutSpeed As Long
 
End Type
 
Private Sub TimerServerprüfung_Timer()
 
Call Serverprüfung(serverstatus)
If serverstatus = True And Buchungerforderlich = True Then
    Call LokalaufServer
    Buchungerforderlich = False
ElseIf serverstatus = True And Stillstandfehlend = True Then
    Call Stillstandserverübertragung
    Stillstandfehlend = False
End If
 
End Sub
 
 
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
 
Public Sub Serverprüfung(serverstatus)
 
Dim nTime As Single
Dim mTime As Single
nTime = Ping("Rechner X")
mTime = Ping("Rechner Y")
If nTime <> -1 And mTime <> -1 Then
    serverstatus = True
Else
    serverstatus = False
End If