Here's a piece of code that outputs a tracert command to a file and then reads the contents.
Regards,
mapman04
===================
Dim oShell,txt1,fso,ln1,str1
Set oShell = WScript.CreateObject ("WSCript.shell"

oShell.run "cmd /C CD C:\ & TraceRT 10.10.3.230>C:\Temp\TraceRT.txt",0,true
Set fso = CreateObject("Scripting.FileSystemObject"

Set txt1 = fs

penTextFile("C:\Temp\TraceRT.txt",1)
Do While txt1.AtEndOfStream = False
ln1 = txt1.Readline
str1 = Mid(ln1,9,1)
If str1 = "*" Then
MsgBox "IP Address is not valid!",64,"TraceRoute"
Exit Do
End If
Loop
Wscript.Quit