Eigene IP-Adresse ermitteln

myUser.IP = Request.UserHostAddress


Multicast-Adressen:

Dim lastServerIP As String = ""

Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
Dim adapter As NetworkInterface

'Ermittle die IP-Adressen des Rechners
For Each adapter In adapters
Dim adapterProperties As IPInterfaceProperties = adapter.GetIPProperties()
Dim multiCast As MulticastIPAddressInformationCollection = adapterProperties.MulticastAddresses
If multiCast.Count > 0 Then
Dim multi As IPAddressInformation
For Each multi In multiCast
If lastServerIP > "" Then lastServerIP &= " | "
lastServerIP &= multi.Address.ToString
Next multi
End If
Next adapter