Dim ret as String

    Dim tmpFile as String

    Dim fso as New FileSystemObject

    Dim wsh As New WshShell

    'Dim waitOnReturn as Boolean

    Dim windowStyle As Integer

    tmpFile = fso.GetSpecialFolder(TemporaryFolder) & "¥" & Replace(fso.GetTempName(), ".tmp", ".txt")

    strCmd = "cmd /c " & strCmd & " > " & tmpFile & " 2>&1"

    'waitOnReturn = True

    windowStyle = 0

    wsh.Run strCmd, windowStyle, waitOnReturn

    

    If waitOnReturn Then

        If Faso.FileExits(tmpFile) Then

            On Error Resume Next

            ret = fso.OpenTextFile(tmpFile, ForReading, False).ReadAll

        Else

            ret = "Error, no output all all."

        End If

    End If

    runCmd = ret

End Function