Write out to a command prompt?

[dufran3]

Below is a function I wrote for pinging a computer. Is there anyway, that instead of writing the results to a logfile/console/msgbox, that I could write them out to a command prompt window?

Func _PingCheck($name, $logpath = '')
    If $logpath == '' Then
        $logpath = 'C:\pinglog.txt'
    EndIf
    $var = Ping($name,250)
    $FileOpen = FileOpen($logpath,1)
    If $var Then
        FileWriteLine($FileOpen,$name & ' status is "up"')
        FileWriteLine($FileOpen,"Online, roundtrip was: " & $var & ' ms')
    Else
        Select 
            Case @error == 1
                FileWriteLine($FileOpen,"An error occured with number: " & @error & @CRLF & 'Host is offline')
            Case @error == 2
                FileWriteLine($FileOpen,"An error occured with number: " & @error & @CRLF & 'Host is unreachable')
            Case @error == 3
                FileWriteLine($FileOpen,"An error occured with number: " & @error & @CRLF & 'Bad destination')
            Case @error == 4
                FileWriteLine($FileOpen,"An error occured with number: " & @error & @CRLF & 'Other errors')
        EndSelect
    EndIf
EndFunc

[SmOke_N]

Send()

[dufran3]

Really, I thought send was to send keys and text to a window

[SmOke_N]

Really, I thought send was to send keys and text to a window

http://www.autoitscript.com/forum/index.ph...st&p=309892

[dufran3]

Hrmm...not sure you are getting at what i'm trying to do. I don't want to send the window a command. Or type anything into the window. I want to output my error messages to a command prompt...

[SmOke_N]

Hrmm...not sure you are getting at what i'm trying to do. I don't want to send the window a command. Or type anything into the window. I want to output my error messages to a command prompt...

To be honest, I'm not sure, if no one else is 100%, maybe google could be your friend.

Run(@ComSpec & ' /?')

Edited February 28, 2007 by SmOke_N

[/dev/null]

Hrmm...not sure you are getting at what i'm trying to do. I don't want to send the window a command. Or type anything into the window. I want to output my error messages to a command prompt...

O.K., so what do you think this will do?

Send("This is not a command and also I don't type anything into the window. It's just my error message")

I'll tell you. It will just write that text into the command window (IF you opened one and it had the focus). However, WHAT are you going to do with that command windows??? I don't get it .....

[Confuzzled]

Why not use the version of PING that comes with the OS in a batch file and pipe/append the output to a text file which can then be parsed later?

ping www.microsoft.com >> c:\pinglog.txt

Type PING /? in a command box to see relevant parameters...

[nfwu]

The OP wants to display the results in a command prompt like window:

@OP: I'd recommend writing the data to a text document then displaying that in notepad.

Or, look at http://www.autoitscript.com/forum/index.php?showtopic=19665

#)

[herewasplato]

Really, I thought send was to send keys and text to a window

it is:

_PingCheck("google.com")

_PingCheck("cnn.com")

Func _PingCheck($name)
    Run("cmd")
    WinWait("C:\WINDOWS\system32\cmd.exe")
    $var = Ping($name, 250)
    Select
        Case @error == 1
            Send("An error occured with number: " & _
                    @error & '  Host is offline')
        Case @error == 2
            Send("An error occured with number: " & _
                    @error & '  Host is unreachable')
        Case @error == 3
            Send("An error occured with number: " & _
                    @error & '  Bad destination')
        Case @error == 4
            Send("An error occured with number: " & _
                    @error & '  Other errors')
    EndSelect
    If $var Then Send(' status is "up" Online, roundtrip was: ' & $var & ' ms')
    If $var = 0 Then Send(' Ping failed')
EndFunc   ;==>_PingCheck