Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB.NET | 13.12.05 |
Mit nachfolgender Funktion lässt sich unter VB.NET sehr einfach ermitteln, ob eine Netzwerk-Verbindung besteht. Hierzu werden die Host-Informationen des Logon-Servers ausgelesen. Führt dies zu einem Fehler gibt es keine Netzwerk-Verbindung.
Function CheckForNetworkConnectivity() As Boolean
Dim oHostEntry As System.Net.IPHostEntry
' Fehlerbehandlung aktivieren
Try
' Logon-Server aus den Umgebungsvariablen auslesen
Dim sServer As String = Environment.GetEnvironmentVariable("LOGONSERVER")
' Host-Informationen ermitteln
oHostEntry = System.Net.Dns.GetHostByName(sServer.Substring(2))
Return True
Catch
' Fehler!
Return False
End Try
End Function