Imports System.Net
Imports System.Net.NetworkInformation
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim gateway_addresses() As IPAddress = EnumGateWays()
Dim str As String = ""
For Each addr As IPAddress In gateway_addresses
str &= addr.ToString & Environment.NewLine
Next
MsgBox(str)
End Sub
Private Function EnumGateWays() As IPAddress()
Dim ret As New List(Of IPAddress)
Dim adapters() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces
Dim adapterinfo As IPInterfaceProperties = Nothing
Dim gateways As GatewayIPAddressInformationCollection = Nothing
For Each adapter As NetworkInterface In adapters
adapterinfo = adapter.GetIPProperties
gateways = adapterinfo.GatewayAddresses
ret.AddRange((From g As GatewayIPAddressInformation In gateways Select g.Address).ToArray())
Next
Return ret.ToArray
End Function
End Class