Capture Data from a command window 2

[cornboy88]

Does anybody know how to capture data from a command window? I am sending the ping command and want to retrieve the data from the command window and write it to a file.

sub pingit

Dim VarX
Dim msg


txtName = Inputbox("Enter the IP our workstation name:&quot


If txtName <> &quot;&quot; Then
set wshShell = WScript.CreateObject(&quot;WScript.shell&quot
wshShell.run(&quot;command.com /k ping &quot; & txtName)
Else

VarX = MsgBox(&quot;You have not entered some bad information.&quot;, vbCritical, &quot;Error has occured&quot
End If

end sub

 

[FengShui1998]

cornboy88,

Try this,


Dim WshShell, oExec
Set WshShell = CreateObject(&quot;WScript.Shell&quot
Dim allInput, tryCount

Set oExec = wshShell.exec(&quot;cmd /C &quot; & &quot;Dir c:\mydir&quot
allInput = &quot;&quot;
tryCount = 0

Do While True

Dim input
input = ReadAllFromAny(oExec)

If -1 = input Then
If tryCount > 10 And oExec.Status = 1 Then
Exit Do
End If
tryCount = tryCount + 1
WScript.Sleep 100
Else
allInput = allInput & input
tryCount = 0
End If
Loop
WScript.Echo allInput


Function ReadAllFromAny(oExec)

If Not oExec.StdOut.AtEndOfStream Then
ReadAllFromAny = oExec.StdOut.ReadAll
Exit Function
End If

If Not oExec.StdErr.AtEndOfStream Then
ReadAllFromAny = &quot;STDERR: &quot; + oExec.StdErr.ReadAll
Exit Function
End If

ReadAllFromAny = -1
End Function


fengshui_1998

 

[cornboy88]

fengshui_1998,

That is just what i needed. Thanks


cornboy88

 

[jonscott8]

FWIW, in this case, it'd be easier to let the command emulator do the grunt work, ISO polling to monitor the output stream.

wshShell.run(&quot;command.com /k ping &quot; & txtName &quot; >C:\ping.txt&quot;,0,True) Jon Hawkins