Apparently Microsoft slightly changed the adapter naming conventions for network adapters when the released W10. To accommodate W7 & W10, i have modified the original function as follows:
Public Function CheckEthernetLANConnection() As Boolean
CheckEthernetLANConnection = False
Dim adapters As System.Net.NetworkInformation.NetworkInterface() = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
For i As Short = 0 To adapters.Length - 1 Step 1
Dim aStr As String = adapters(i).Name
If aStr.Contains("Local Area Conn") = True Then
If adapters(i).OperationalStatus = Net.NetworkInformation.OperationalStatus.Up Then
CheckEthernetLANConnection = True
Exit For
End If
End If
If aStr.Contains("Ether") = True Then
If adapters(i).OperationalStatus = Net.NetworkInformation.OperationalStatus.Up Then
CheckEthernetLANConnection = True
Exit For
End If
End If
Next i
End Function