Dim IPHostAddress As IPAddress Dim GetIPv4Address As String = Nothing Dim iphe As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName()) For Each IPHostAddress In iphe.AddressList If IPHostAddress.AddressFamily = AddressFamily.InterNetwork Then GetIPv4Address = IPHostAddress.ToString() End If Next GetIPv4Address 스트링변수에 현재 사용하는 아이피주소가 저장됨