I have a spread sheet of data, one column with an IP address and a
second column with a Domain Name Server. I have written a function that
takes a host IP and a server IP and prints the DNS. I would like to
write a macro that goes down the column of IPs and determines the DNS
and prints it in that second column. Any ideas?

Here is the function script.


Code:
--------------------
Function NSLookup(host, server)

strCommand = "nslookup " & host & " " & server
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec(strCommand)
strNsLookupStdOut = objScriptExec.StdOut.ReadAll
arrLookup = Split(strNsLookupStdOut, "Name: ", -1,1)
v = arrLookup(1)
z = Split(v,"Address:",-1,1)
x = z(0)


End Function
--------------------


Thanks


--
quizkiwi
------------------------------------------------------------------------
quizkiwi's Profile: http://www.excelforum.com/member.php...o&userid=27668
View this thread: http://www.excelforum.com/showthread...hreadid=471818

can anyone give me a place to start at least?

thank

--
quizkiw
-----------------------------------------------------------------------
quizkiwi's Profile: http://www.excelforum.com/member.php...fo&userid=2766
View this thread: http://www.excelforum.com/showthread.php?threadid=47181

can anyone give me a place to start at least?

thank

--
quizkiw
-----------------------------------------------------------------------
quizkiwi's Profile: http://www.excelforum.com/member.php...fo&userid=2766
View this thread: http://www.excelforum.com/showthread.php?threadid=47181

I am trying to do something similiar. But I am trying to lookup the ip
address of a domain in col. a against 3 internal dns servers and report
their findings on col b, c, d and also what mail servers they have.

"quizkiwi" wrote in
message ...

I have a spread sheet of data, one column with an IP address and a
second column with a Domain Name Server. I have written a function that
takes a host IP and a server IP and prints the DNS. I would like to
write a macro that goes down the column of IPs and determines the DNS
and prints it in that second column. Any ideas?

Here is the function script.


Code:
--------------------
Function NSLookup(host, server)

strCommand = "nslookup " & host & " " & server
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec(strCommand)
strNsLookupStdOut = objScriptExec.StdOut.ReadAll
arrLookup = Split(strNsLookupStdOut, "Name: ", -1,1)
v = arrLookup(1)
z = Split(v,"Address:",-1,1)
x = z(0)


End Function
--------------------


Thanks


--
quizkiwi
------------------------------------------------------------------------
quizkiwi's Profile:
http://www.excelforum.com/member.php...o&userid=27668
View this thread: http://www.excelforum.com/showthread...hreadid=471818