Retrieve CMD output

[James]

Hi all,

Probably nothing special but, I am happy I managed to do it!

This code will allow you to retrieve the output of any CMD command which ouputs data!

OutCMD()

Func OutCMD($io_command = "systeminfo", $io_debug = 1)
    If Not StringIsUpper($io_command) Then $io_command = StringUpper($io_command)
    MsgBox(0, @ScriptName, $io_command)
    $objShell = ObjCreate("WScript.Shell")
    $objExecObject = $objShell.Exec($io_command)
    If Not @error Then
       ;WinSetState(@SystemDir & '\cmd.exe', "", @SW_HIDE)
       ;MsgBox(0, @ScriptName, @SystemDir & '\cmd.exe')
        
        If $io_debug = 1 Then ConsoleWrite("> Starting Output!" & @CRLF)
        While Not $objExecObject.StdOut.AtEndOfStream
            $strText = $objExecObject.StdOut.ReadLine()
            For $i = 0 To $strText
                If StringInStr($strText, "0") > 0 Then ConsoleWrite("+>Output: " & $strText & @CRLF)
            Next
        WEnd
        If $io_debug = 1 Then ConsoleWrite("> Output complete!" & @CRLF)
        Exit
    Else
        ConsoleWriteError("Error: Could not perform command > " & $io_command)
    EndIf
EndFunc

Bugs:

If you input an invalid command then you get an error, I don't know how to fix it so it will error itself.

CMD window is shown but with no text inside.

Thanks,

James

[MrCreatoR]

You can do the same without using WScript.Shell object...

$SysInfo_Read = _RunStdOutRead("SystemInfo")

ConsoleWrite($SysInfo_Read)

Func _RunStdOutRead($sRunCmd)
    Local $iPID = Run(@ComSpec & ' /c ' & $sRunCmd, @ScriptDir, @SW_HIDE, 4 + 2)
    Local $sStdOutRead = ""
    
    While ProcessExists($iPID)
        $sStdOutRead &= StdoutRead($iPID)
    WEnd
    
    Return $sStdOutRead
EndFunc

If you input an invalid command then you get an error

You need to set ObjEvent() to manualy handle the COM errors.

CMD window is shown

I thought that there is need a second and third parametr for ...Run($io_command, 0, False).. but that's bring up errors ... Edited February 15, 2008 by MsCreatoR

[James]

I thought that too! Thanks for the advice!

[AzKay]

Woah. An wscript object

Sorry but why would you want this to be used instead of the helpfile example?

[James]

Erm, it's a different way of doing it! Don't argue AzKay, it's not worth it!