Run a command and capture the output in vbscript

Question

I am trying to run the following command and return the output of it using VBscript:

dir /A-d "C:\Windows\Minidump" | find /c "/"

And I have the following script but it does not work (probably because of " charachters:

Wscript.Echo runCMD("dir /A-d "C:\Windows\Minidump" | find /c "/"")

Function runCMD(strRunCmd)

 Set objShell = WScript.CreateObject("WScript.Shell")
 Set objExec = objShell.Exec(strRunCmd)

 strOut = ""

 Do While Not objExec.StdOut.AtEndOfStream
  strOut = strOut & objExec.StdOut.ReadLine()
 Loop

 Set objShell = Nothing
 Set objExec = Nothing

 runCMD = strOut

End Function

Any suggestions on how to achieve this?

Does it have to be vbscript? could you just place the following in a bat file? dir /A-d "C:\Windows\Minidump" | find /c "/" > newfile.txt — safetyOtter

Ekkehard.Horner Ekkehard.Horner · Accepted Answer · 2015-01-22T12:16:55

dir is intrinsic; you need %comspec%.

Double quotes need to be escaped by double double quotes in VBScript:

Wscript.Echo runCMD("%comspec% /c dir /A-d ""C:\Windows\Minidump"" | find /c ""/""")

Run a command and capture the output in vbscript

1 Answers