0 Replies Latest reply: Mar 15, 2012 4:57 PM by Priya Kakarla RSS

    NSLOOKUP

      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