Server an oder aus?

[Julian Maicher]

Hi,

wie kann ich überprüfen, ob ein Server im Netzwerk an ist?

 

[gabrielgsell]

Ciao,
in dem du den Server anpingst. Aber was hat die Frage mit VB zu tun?
Willst du ein Ping-Programm schreiben?
Grüsse

 

[Julian Maicher]

Pingen bekomme ich wohl auch noch hin
Liegt ja wohl nahe, dass ich über VB prüfen will, ob der Server gerade erreichbar ist oder nicht.

Es geht um folgendes: Meinem Programm liegt eine Datenbank zu Grunde, die auf einem Server liegt. Ist die Datenbank/der Server, aus welchem Grund auch immer, nicht erreichbar, soll eine Meldung ausgegeben werden.

Den Fall, dass die Datenbank gelöscht wurde, aber der Server an ist, habe ich schon abgefangen:

Public Function FileExists(filename$) As Boolean
 FileExists = (Dir$(filename$) <> "")
End Function

If FileExists(dbdir) = False Then ...

Nur wenn der Server nicht erreichbar ist, kommt eine Fehlermeldung! Deshalb möchte ich vorher prüfen ob der Server erreichbar ist.

 

[MondGsicht]

Ja dann machs mit einem Ping Befehl.
Hilfe dazu findest du unter AchtiveVB. Unter Tips und Tricks hats ein Beispiel wie man das "anpingen" realisieren kann.

 

[Julian Maicher]

Danke, ich werde es mal testen.
Wenn jemand eine einfachere Variante hat, bitte melden.

 

[Filone]

Wie gesagt, pingen mit

ICMPSendEcho

oder eine andere Möglichkeit ist die API-Funktion

IsDestinationReachable.