NSLOOKUP

[#1]

I am trying to do NSLOOKUP and get the server information back.It works but it replies only first two rows of the result.

Please let me know if there is any error in the code??

sub nslookup()

set TableBox = ActiveDocument.GetSheetObject( "TB02" )
for rij = 1 to TableBox.GetRowCount-1
cell = TableBox.GetCell(rij,0).text
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("nslookup -n 2" & cell)
strPingResults = LCase(objExec.StdOut.ReadAll)
TableBox.SetInputFieldCell rij-1,3,strPingResults
'msgbox(strPingResults)

next
end sub

REGARDS

Priya