VBS: Output results in excel

[jamitupya]

 

Im trying to output the content from from a tracert command to excel however i am unsure how i can output this in an excel cell....

 

any ideas?

 

 

Set WshShell = WScript.CreateObject("WScript.Shell")
Ping = WshShell.Run("ping -n 2 -a " & HostName, 0, True)

tracert = WshShell.Run("tracert -4 " & HostName, 0, True)

objExcel.Cells(intRow, 1).Value = UCase(HostName)

Select Case Ping
Case 0 objExcel.Cells(intRow, 2).Value = "OK"
Case 1 objExcel.Cells(intRow, 2).Value = "NG"
End Select

Select Case tracert
Case 0 objExcel.Cells(intRow, 3).Value = "OK"
Case 1 objExcel.Cells(intRow, 3).Value = "NG"
End Select

 

 

Basically PING is OK and NG and works perfectly.

however i just cant figure out how to output the stdout data to an excel sheet