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