macro

Q

quizkiwi

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
 
B

Brian

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top