Public Shared Function GetIPAddresses(ByVal adapter As String) As String()
Dim oBuffer As New ArrayList()
Dim sInterface As String
Dim arrInterface As String()
Dim sIPAddress As String
Dim arrIPAddress As String()
Dim bDHCP As Boolean
Dim strBaseKey As String = "SYSTEMCurrentControlSetServicesTcpipParametersInterfaces"
Alte URL:
/snippet/ip-addressen-aus-registry-auslesen/374