How can I obtain the name/i.p. of my dns server ?

[vbsearch]

When I do something like this

For Each ip As System.Net.IPAddress _
In System.Net.Dns.GetHostByName(strDomain).AddressLis t
MessageBox.Show(ip.ToString)
Next ip

would it be correct to assume that GetHostByName uses my local DNS
server to perform the translation. If so, is there a way to extract the
i.p.(or host name/address ) of this server, as I need to query it directly.

Tia.

[Terry Olsen]

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinMgmts:")
objs = WMI.InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each obj In objs
MsgBox(obj.DHCPServer.ToString)
Next
End Sub

To see all the different things you can do, look at this link...

http://www.activexperts.com/activmon...rConfiguration
"vbsearch" <dfgfdg> wrote in message
news:ut**************@TK2MSFTNGP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAddress _
In System.Net.Dns.GetHostByName(strDomain).AddressLis t
MessageBox.Show(ip.ToString)
Next ip

would it be correct to assume that GetHostByName uses my local DNS
server to perform the translation. If so, is there a way to extract the
i.p.(or host name/address ) of this server, as I need to query it
directly.

Tia.

[Cor Ligthert]

Terry,

Thanks nice link for WMI, I have them all, however in a program at the
moment that shows them object by object, so it is not easy to see them in
one time, but this link does.

Cor

[Terry Olsen]

oops. I think you need DNSServerSearchOrder instead of DHCPServer

"Terry Olsen" <to******@hotmail.com> wrote in message
news:ep**************@TK2MSFTNGP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinMgmts:")
objs = WMI.InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each obj In objs
MsgBox(obj.DHCPServer.ToString)
Next
End Sub

To see all the different things you can do, look at this link...

http://www.activexperts.com/activmon...rConfiguration
"vbsearch" <dfgfdg> wrote in message
news:ut**************@TK2MSFTNGP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAddress _
In System.Net.Dns.GetHostByName(strDomain).AddressLis t
MessageBox.Show(ip.ToString)
Next ip

would it be correct to assume that GetHostByName uses my local DNS
server to perform the translation. If so, is there a way to extract the
i.p.(or host name/address ) of this server, as I need to query it
directly.

Tia.

[vbsearch]

I have just realised something:
If my ip is

a.b.c.d

and my computer is connected to the internet from an internal home
network, then the dns will always be

192.168.0.1 if network connection sharing is used
and
a.b.c.1 if real addresses are used.

Would that be the case (most of the time) ?

p.s.
thanks for your code, it works, I got a few blank message boxes
and 192.168.0.1. The only strange one was 255.255.255.255,
i think this one is irrelevant for tcp/ip, isn't it?

"Terry Olsen" <to******@hotmail.com> wrote in message
news:ep**************@TK2MSFTNGP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinMgmts:")
objs = WMI.InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each obj In objs
MsgBox(obj.DHCPServer.ToString)
Next
End Sub

To see all the different things you can do, look at this link...

http://www.activexperts.com/activmon...rConfiguration

"vbsearch" <dfgfdg> wrote in message
news:ut**************@TK2MSFTNGP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAddress _
In System.Net.Dns.GetHostByName(strDomain).AddressLis t
MessageBox.Show(ip.ToString)
Next ip

would it be correct to assume that GetHostByName uses my local DNS
server to perform the translation. If so, is there a way to extract the
i.p.(or host name/address ) of this server, as I need to query it
directly.

Tia.

[vbsearch]

This one actually didn't (seem to) work.
I received a few empty strings plus one

System.Object[]

I don't know what it means.


"Terry Olsen" <to******@hotmail.com> wrote in message
news:Ox**************@TK2MSFTNGP14.phx.gbl...

oops. I think you need DNSServerSearchOrder instead of DHCPServer

"Terry Olsen" <to******@hotmail.com> wrote in message
news:ep**************@TK2MSFTNGP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinMgmts:")
objs = WMI.InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each obj In objs
MsgBox(obj.DHCPServer.ToString)
Next
End Sub

To see all the different things you can do, look at this link...

http://www.activexperts.com/activmon...rConfiguration

"vbsearch" <dfgfdg> wrote in message
news:ut**************@TK2MSFTNGP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAddress _
In System.Net.Dns.GetHostByName(strDomain).AddressLis t
MessageBox.Show(ip.ToString)
Next ip

would it be correct to assume that GetHostByName uses my local DNS
server to perform the translation. If so, is there a way to extract the
i.p.(or host name/address ) of this server, as I need to query it
directly.

Tia.

[Terry Olsen]

If you have more than one network connection (say a dialup connection and a
LAN connection), you'll get a message box for each connection. Usually the
LAN connection is the first, so you only need the first one.

I think you can change this:

For Each obj In objs
MsgBox(obj.DHCPServer.ToString)
Next

to:
MsgBox(objs.obj(0).DHCPServer.ToString) 'or (1) depending if 0 zero based.

Tho I haven't tried it. You'll have to play with it to get it right.
"vbsearch" <dfgfdg> wrote in message
news:Od**************@TK2MSFTNGP09.phx.gbl...I have just realised something:
If my ip is

a.b.c.d

and my computer is connected to the internet from an internal home
network, then the dns will always be

192.168.0.1 if network connection sharing is used
and
a.b.c.1 if real addresses are used.

Would that be the case (most of the time) ?

p.s.
thanks for your code, it works, I got a few blank message boxes
and 192.168.0.1. The only strange one was 255.255.255.255,
i think this one is irrelevant for tcp/ip, isn't it?

"Terry Olsen" <to******@hotmail.com> wrote in message
news:ep**************@TK2MSFTNGP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinMgmts:")
objs = WMI.InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each obj In objs
MsgBox(obj.DHCPServer.ToString)
Next
End Sub

To see all the different things you can do, look at this link...

http://www.activexperts.com/activmon...rConfiguration

"vbsearch" <dfgfdg> wrote in message
news:ut**************@TK2MSFTNGP10.phx.gbl...

> When I do something like this
>
> For Each ip As System.Net.IPAddress _
> In System.Net.Dns.GetHostByName(strDomain).AddressLis t
> MessageBox.Show(ip.ToString)
> Next ip
>
> would it be correct to assume that GetHostByName uses my local DNS
> server to perform the translation. If so, is there a way to extract the
> i.p.(or host name/address ) of this server, as I need to query it
> directly.
>
> Tia.