Execute external files from vbs 1

[kridy]

Hi there,

is it possible to execute an external file and get its output back, like it can be done in Perl using

@output = `C:\\test.exe`;

?

I am looking forward to getting some help ;-)
Kind regards,
Kridy
_____________
kridy@web.de

 

[FengShui1998]

kridy,

This is the old way of doing things.

Set Wsh = Wscript.CreateObject("Wscript.Shell&quot
Wsh.run ("cmd /K ""dir c:\somedir\*.* > c:\dev\scripts\somedir.txt"" &quot

However the newest Windows Script Host 5.6 from Microsoft allows you to capture output and re-direct it. I can't remember where I got this but it works well.

fengshui_1998

' Save this to a .vbs file, remember you must have 5.6.
' ------------------------------------------------------
Set oExec = wshShell.exec("cmd /C Dir c:\directoryname&quot

Function ReadAllFromAny(oExec)

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

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

ReadAllFromAny = -1
End Function

Dim allInput, tryCount

allInput = ""
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

 

[kridy]

Hi fengshui_1998!

Many thanks for Your help! I have tried the new way and it works

Kind regards,
Kridy
_____________
kridy@web.de