Dynamische zugewiesene IP Adresse ermitteln

Winsock, LocalIP

'Auf dem Formular muss zunächst ein Microsoft Winsock Steuerelement abgelegt werden.

'Außerdem wird eine offene Internet-Verbindung benötigt.

Sub Form_Load()

Dim DynIp As String

With Winsock1

.Protocol = sckTCPProtocol

.Connect

DynIp = .LocalIP

.Close

End With

MsgBox "IP: " & DynIp, vbInformation, "IP Adresse"

End Sub