GetNetworkAvailability - Retrieving the network availability

Enum NetworkAvailability As Integer
    Other = 1
    Unknown = 2
    RunningFullPower = 3
    Warning = 4
    InTest = 5
    NotApplicable = 6
    PowerOff = 7
    OffLine = 8
    OffDuty = 9
    Degraded = 10
    NotInstalled = 11
    InstallError = 12
    PowerSaveUnknown = 13
    PowerSaveLowPowerMode = 14
    PowerSaveStandby = 15
    PowerCycle = 16
    PowerSaveWarning = 17
End Enum

' Returns the network availability
' Requires a reference to System.Management and the respective Imports
Function GetNetworkAvailability() As NetworkAvailability
    Dim mos As New ManagementObjectSearcher _
        ("SELECT * FROM Win32_NetworkAdapter")
    Dim mo As ManagementObject
    For Each mo In mos.Get()
        Return CType(Integer.Parse(mo("Availability").ToString()), _
            NetworkAvailability)
    Next
End Function