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
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