DNS Alias

Question

User1109811461 posted

Hi all expert,

i'm using the following code to obtain DNS alias but getting blank result. Please help to adjust the following code. 

Dim hostinfo As IPHostEntry = Dns.GetHostEntry("www.bing.com")
Dim address As IPAddress() = hostinfo.AddressList
Dim [alias] As [String]() = hostinfo.Aliases

Response.Write(("Host name : " + hostinfo.HostName))
Response.Write("<br>")
Response.Write(ControlChars.Cr + "Aliases : ")

Response.Write("<br>")
Dim index As Integer
For index = 0 To [alias].Length - 1
Response.Write([alias](index))
Next index

Response.Write(ControlChars.Cr + "IP Address list :")

For index = 0 To address.Length - 1
Response.Write(address(index))
Next index

Answer 1

User753101303 posted

Hi,

Not a DNS expert but I ,believe it is the expected result according to https://network-tools.com/nslook/

My understanding is that you would need to test with a name that returns more than a single CNAME record ???

Answer 2

User1109811461 posted

Hi,

The result was not accurate as no dns alias appear, some of the code is taken from Microsoft web site, any one else can help me to resolve this issues..?

Thanks.