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

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinM gmts:")
objs = WMI.InstancesOf ("Win32_Network AdapterConfigur ation")
For Each obj In objs
MsgBox(obj.DHCP Server.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******** ******@TK2MSFTN GP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAd dress _
In System.Net.Dns. GetHostByName(s trDomain).Addre ssList
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,

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

oops. I think you need DNSServerSearch Order instead of DHCPServer

"Terry Olsen" <to******@hotma il.com> wrote in message
news:ep******** ******@TK2MSFTN GP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinM gmts:")
objs = WMI.InstancesOf ("Win32_Network AdapterConfigur ation")
For Each obj In objs
MsgBox(obj.DHCP Server.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******** ******@TK2MSFTN GP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAd dress _
In System.Net.Dns. GetHostByName(s trDomain).Addre ssList
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.

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******@hotma il.com> wrote in message
news:ep******** ******@TK2MSFTN GP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinM gmts:")
objs = WMI.InstancesOf ("Win32_Network AdapterConfigur ation")
For Each obj In objs
MsgBox(obj.DHCP Server.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******** ******@TK2MSFTN GP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAd dress _
In System.Net.Dns. GetHostByName(s trDomain).Addre ssList
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.

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******@hotma il.com> wrote in message
news:Ox******** ******@TK2MSFTN GP14.phx.gbl...

oops. I think you need DNSServerSearch Order instead of DHCPServer

"Terry Olsen" <to******@hotma il.com> wrote in message
news:ep******** ******@TK2MSFTN GP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinM gmts:")
objs = WMI.InstancesOf ("Win32_Network AdapterConfigur ation")
For Each obj In objs
MsgBox(obj.DHCP Server.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******** ******@TK2MSFTN GP10.phx.gbl...

When I do something like this

For Each ip As System.Net.IPAd dress _
In System.Net.Dns. GetHostByName(s trDomain).Addre ssList
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.

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.DHCP Server.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******** ******@TK2MSFTN GP09.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******@hotma il.com> wrote in message
news:ep******** ******@TK2MSFTN GP14.phx.gbl...

This works...
Dim objs As Object
Dim obj As Object
Dim WMI As Object
WMI = GetObject("WinM gmts:")
objs = WMI.InstancesOf ("Win32_Network AdapterConfigur ation")
For Each obj In objs
MsgBox(obj.DHCP Server.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******** ******@TK2MSFTN GP10.phx.gbl...

> When I do something like this
>
> For Each ip As System.Net.IPAd dress _
> In System.Net.Dns. GetHostByName(s trDomain).Addre ssList
> 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.