write return value of exe call to text file

[olmanRvr 1]

I have a compiled script :-timeStampSecs.exe which returns timestamp in seconds. I call it in FileWrite to write the time stamp in a text file.But it writes some other values instead of the timestamp. Please help.

thanks

olmar

The script is below:-

$kNum=run("timeStampSecs.exe","",1); also tried with flags 2,4,8,10
$hFile=FileOpen("timeStamp.txt",2)
FileWrite($hFile,"the key is: "&$kNum)
FileClose("$hFile")

;Code of thetimeStampSecs.exe:-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#include <Date.au3>

Func secFromEpoch()
Local $ts=_DateDiff( "s","1970/01/01 00:00:00",_NowCalc())
    $ts=String($ts)
    ConsoleWrite("timeStamp is: "&$ts&@CRLF)
        Return $ts
EndFunc
secFromEpoch()

 

[kylomas 365]

olmanRvr,

Look at the help file for run.  RUN returns the PID if successful.  If you want to write the time stamp to a file you will have to do that in the script that calculates it.  You can pass in a file name as a command line parameter if you wish.

kylomas

[olmanRvr 1]

Hi, Thanks for the quick reply.Let me try your suggestion .Will let you know

olmar

[Melba23 2,420]

olmanRvr,

Or you can read the return stream of the process like this:

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>

Local $iPID = Run("timeStampSecs.exe", "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
Local $sOutput
While 1
    $sTemp = StdoutRead($iPID)
    $sTemp &= StderrRead($iPID)
    ; Exit the loop if the process closes or StdoutRead returns an error.
    If @error Then
        ExitLoop
    Else
        $sOutput &= $sTemp
    EndIf
    Sleep(10)
WEnd
MsgBox($MB_SYSTEMMODAL, "Stdout Read:", $sOutput)

M23

[Jos 979]

Or simply use RunWait()? 

Jos

[snoopie 0]

FileClose("$hFile")

should rather be 

FileClose($hFile)

just a typo though.

When calling command line executables I quite often have more succes using:

Run(@ComSpec & " /c " & ...)

 

[olmanRvr 1]

Instead of Run used RunWait as per Jos .Same issue--- writing PID numbers in place of the time stamp as wanted.Also removes quotes from fileclose  like "$hFile"-->$hFile but doesn't help.

Working on reading the return stream(as per Melba23's suggestion).

 

see you.........

[olmanRvr 1]

Read stream of  run call to timeStampSecs.exe .But still getting blank output(in consoleWrite.See code below:--

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>

Func readStream()
            Local $iPID = Run("timeStampSecs.exe", "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
        Local $sOutput
        While 1
            $sTemp = StdoutRead($iPID)
            $sTemp &= StderrRead($iPID)
            ; Exit the loop if the process closes or StdoutRead returns an error.
            If @error Then
                ExitLoop
            Else
                $sOutput &= $sTemp
            EndIf
            Sleep(10)
        WEnd
        MsgBox($MB_SYSTEMMODAL, "Stdout Read:", $sOutput)
        ConsoleWrite("ts is: "&$sOutput&@CRLF)
        Return $sOutput
EndFunc
readStream()

 

[Jos 979]

18 minutes ago, olmanRvr said:

 

Instead of Run used RunWait as per Jos .Same issue--- writing PID numbers

 

Nah, RunWait() returns the Returncode of the shelled program.

Jos

[Melba23 2,420]

olmanRvr,

The  StdoutRead code worked for me with a compiled version of the script you posted in the OP, as did Jos' suggestion.

M23

[kylomas 365]

olmanRvr,

Works perfectly for me like this (M23 code modified)...

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>

Local $iPID = Run(@scriptdir & "\timeStampSecs.exe", "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
Local $sOutput
While 1
    $sOutput &= StdoutRead($iPID)
    If @error Then ExitLoop
    Sleep(10)
WEnd
MsgBox($MB_SYSTEMMODAL, "Stdout Read:", $sOutput)

kylomas

[olmanRvr 1]

Hi kylomas,

Tried the code  you have shown.Yes, it is showing the timestamp in  a GUI window.Problem arises when I  add  the following line:-

ConsoleWrite("value is: "&$sOutput&@CRLF)

ConsoleWrite fails to write the value.Same issue occurs when writing the value of  $sOutput to a text file.Weird thing is if I replace the 

timeStampSecs.exe with  genKeyNum.exe it works fine !! Any idea, anyone please?

example below:

;Only difference to the previous function is that another  exe file is invoked
Func runExegenKeyNum();the exe fetches the physical drive number
        Local $iPID = Run(@scriptdir & "\genKeyNum.exe", "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
        Local $sOutput
        While 1
            $sOutput &= StdoutRead($iPID)
            If @error Then ExitLoop
            Sleep(10)
        WEnd
        MsgBox($MB_SYSTEMMODAL, "Stdout Read:", $sOutput)
        ConsoleWrite("value is; "&$sOutput&@CRLF)
        Return $sOutput
EndFunc
 runExegenKeyNum()
 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 ;code for genKeyNum.exe
 
 Func gtSrNo()
        $wbemFlagReturnImmediately = 0x10
        $wbemFlagForwardOnly = 0x20
        $colItems = ""
        $strComputer = "localhost"
        Global $Output=""
        $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _
        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    For $oItm In $colItems
        $Output = $Output & $oItm.SerialNumber & @CRLF
    Next
        ConsoleWrite($Output&@CRLF)
    Return $Output;$Output is the serial; number
EndFunc

 

Edited November 19, 2016 by olmanRvr
typho

[jchd 814]

Sideways offer: why not including the various function in the main script instead of invoking them compiled as as many executables?

[olmanRvr 1]

Hi,

I would hard code these values(Hd srnum&timestamp) into the code for each user, basically to bind it to a single machine for a predefined period.Hence in the last moment, after user clicks download button,these values are fetched and incorporated into the script & then compiled .Which will, then be downloaded.

But thanks for your reply

olmar