Capture the output/results of a dos command

wscript.echo fShellRun("%comspec% /c dir c:\")
 
Function fShellRun(sCommandStringToExecute)
 ' This function will accept a string as a DOS command to execute.
 ' It will then execute the command in a shell, and capture the output into a file.
 ' That file is then read in and its contents are returned as the value the function returns.
  Dim oShellObject, oFileSystemObject, sShellRndTmpFile
  Dim oShellOutputFileToRead, iErr
  Set oShellObject = CreateObject("Wscript.Shell")
  Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
  sShellRndTmpFile = oShellObject.ExpandEnvironmentStrings("%temp%") & oFileSystemObject.GetTempName
  On Error Resume Next 
   oShellObject.Run sCommandStringToExecute & " > " & sShellRndTmpFile, 0, True
   iErr = Err.Number
  On Error GoTo 0
   If iErr <> 0 Then 
    fShellRun = ""
    Exit Function 
   End If 
  fShellRun = oFileSystemObject.OpenTextFile(sShellRndTmpFile,1).ReadAll
  oFileSystemObject.DeleteFile sShellRndTmpFile, True 
 End Function