Public Function get_IPConfig() As Boolean
        Try
            Dim mosNA As ManagementObjectSearcher =  _
                New ManagementObjectSearcher ("SELECT * FROM" & _
                "Win32_NetworkAdapterConfiguration " & _
               "WHERE IPEnabled = 'TRUE'")
            Dim mocNA As ManagementObjectCollection = mosNA.Get()
            Dim moNA As ManagementObject
 
            Dim item As ListViewItem = New ListViewItem()
 
            For Each moNA In mocNA
 
                Dim strIpAdresse(), strSubnetMaske(), strDefaultGateway() As _
                  String
 
                strIpAdresse = CType(moNA("IPAddress"), String())
                strSubnetMaske = CType(moNA("IPSubnet"), String())
                strDefaultGateway = CType(moNA("DefaultIPGateway"), String())
 
                item = LvNA.Items.Add("Index: " & moNA("Index").ToString())
                item = LvNA.Items.Add("Description: " & moNA( _
                  "Description").ToString())
                item = LvNA.Items.Add("MACAddress: " & moNA( _
                "MACAddress").ToString())
                item = LvNA.Items.Add("IPAddress: " & strIpAdresse(0))
 
                Try
                    item = LvNA.Items.Add("IPSubnet: " & strSubnetMaske(0))
                Catch ex As Exception
                    item = LvNA.Items.Add("IPSubnet: " & "0.0.0.0")
                End Try
 
                Try
                    item = LvNA.Items.Add("DefaultIPGateway: " & _
                      strDefaultGateway(0))
                Catch ex As Exception
                    item = LvNA.Items.Add("DefaultIPGateway: " & "0.0.0.0")
                End Try
 
                item = LvNA.Items.Add("")
 
            Next
            LvNA.Items.Add(item)
            Return True
        Catch ex As Exception
            Return False
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Function