IP Viewer - IPv6 address displayed and not my IPv4, grrrrrr!

[EDN Admin]

<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt Hello again....

<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt I have the following code in VB 2008:
<p style=" <span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Public<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Class<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt Form1
<p style=" <span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Private<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Sub<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt Button1_Click(<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt ByVal<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
sender <span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt As<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt System.Object,
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt ByVal<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt e
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt As<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt System.EventArgs)
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Handles<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt Button1.Click
<p style=" <span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Dim<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt strHostName
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt As<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt String
<p style=" <span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Dim<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt strIPAddress
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt As<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt String
<p style=" <span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt strHostName = System.Net.Dns.GetHostName()
<p style=" <span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()
<p style=" <span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt MessageBox.Show(<span style="font-family:"Verdana","sans-serif"; color:#a31515; font-size:8pt "Host Name: "<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
& strHostName & <span style="font-family:"Verdana","sans-serif"; color:#a31515; font-size:8pt "; IP Address: "<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt & strIPAddress)
<p style=" <span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt End<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Sub
<p style=" <span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt End<span style="font-family:"Verdana","sans-serif"; color:black; font-size:8pt
<span style="font-family:"Verdana","sans-serif"; color:blue; font-size:8pt Class
<span style="font-family:"Verdana","sans-serif"; color:#002060; font-size:8pt I am running this on my version of window 7 - my problem is that it is returning a IPv6 address and not a IPv4. I have searched and played around all evening to try and sort this
out... to no avail! Any help appreciated - Ian


View the full article