VBScript Run commandline en wacht op resultaat

[WvdWest]

Mijn probleem is als volgt. Ik heb een exe die ik moet uitvoeren in een dos commandbox met een variabele. Het resultaat van deze commandline moet worden teruggekregen om te kijken of het commando succesvol is afgerond. Dit moet ik meer dan 600 keer herhalen met verschillende variabelen.

Ik heb tot nu toe de volgende sub hiervoor;

code:

    strTempOutputBestand = objFSO.GetSpecialFolder(TemporaryFolder) & objFSO.GetTempName
    objShell.Run "cmd /C " & strPath & "con2prt.exe /c " & trim(strPrinter) & " > " & strTempOutputBestand
    'if objFSO.OpenTextFile(strTempOutputBestand, OpenFileForReading).Read(6) = "Failed" then
        intError = intError + 1
        Call WriteLog(strPrinter, 4)
    else
        Call WriteLog(strPrinter, 0)
    end if
    objFSO.DeleteFile(strTempOutputBestand)

Deze bepaald eerst de naam voor een tempbestand. Vervolgens wordt via een wscript shell het commando uitgevoerd met een piping naar het tempbestand. Daarna lees ik met VBScript het bestand weer in om te bepalen wat het resultaat is van het commando. Daarna wordt het tempbestand weer verwijderd.

Dit klinkt wel aardig maar het werkt niet. VBScript gaat namelijk door direct nadat de commandbox is geopend. De volgende stap wordt dan te vroeg uitgevoerd aangezien het tempbestand er nog niet is. de Run aanroepen met een bWaitOnReturn werkt ook niet. Het commando wordt dan op een vage wijze helemaal niet meer uitgevoerd. En omdat het een commandbox is wordt deze nooit automatisch beëindigd en dus gaat het script niet verder.

Wat ik dus wil is code die voor mij het commando uitvoert, het resultaat opvangt (direct of in een temp bestand) en daarna pas het resultaat analiseert. Dit alles moet het liefst verborgen voor de gebruiker gebeuren (zoals de ,0 doet bij shell.Run).

[WvdWest]

Blijkbaar een moeilijk probleem. Weet niemand hoe ik dit moet oplossen?

[brokenp]

als je progje een vaste werktijd heeft, kan je hem gewoon even laten slapen.

Of je probeert te achterhalen wanneer de tempfile beschreven is. Maak een while loop met daarin bijv een check op de laatste regels van je temp file.

[Gomez12]

maak een batch bestand met de volgende inhoud :
commando
echo klaar > klaar.txt

Dan kijk je via vbscript of het bestand klaar.txt bestaat,zoja haal het bestand klaar.txt weg en ga door, zonee loop

Omslachtige methode. Maar werkt in elke programmeertaal.

[-rAz-]

Ik gebruik Gomez12 zijn manier ook altijd. Ik creeer een batch file met achteraan
echo ok>ok.txt

dan laat ik mijn VB progje loopen met een delay met Doevents ertussen en klaars is kees, zodra hij ok.txt vind gaat hij verder en ik delete ok.txt direct

werkt prachtig

[TheVMaster]

Dit verteld de ScriptingHost helpfile :

Windows Scripting Host Help File
Run Method
Creates a new process that executes strCommand.

object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])

Arguments
object

WshShell object.

strCommand

Environment variables within the strCommand parameter are automatically expanded.

intWindowStyle

Optional. Sets the window style of the program being run.

bWaitOnReturn

Optional. If bWaitOnReturn is not specified or FALSE, immediately returns to script execution rather than waiting for the process to end.

If bWaitOnReturn is set to TRUE, the Run method returns any error code returned by the application.

If bWaitOnReturn is not specified or is FALSE, the Run method returns an error code of 0 (zero).

[Brahiewahiewa]

De vraag blijft natuurlijk wel: "Waarom zit je in godsnaam te klooien met con2prt terwijl je gewoon WMI kunt gebruiken?". Zie bijv: http://support.microsoft....?scid=kb%3Ben-us%3B263226

[WvdWest]

Brahiewahiewa schreef op 14 March 2003 @ 15:24:
De vraag blijft natuurlijk wel: "Waarom zit je in godsnaam te klooien met con2prt terwijl je gewoon WMI kunt gebruiken?". Zie bijv: http://support.microsoft....?scid=kb%3Ben-us%3B263226

Omdat ik die nog niet kende. Je bent een held. Dit lost mijn probleem veel mooier en sneller op. Bedankt voor al jullie reacties. Was al een en op weg met de sleep optie maar dit levert veel meer zekerheden op.

[WvdWest]

Ok script werkt nu. Binnen drie minuten kan ik meer dan 600 printers toevoegen. Nogmaals bedankt voor de hulp. Topic kan gesloten worden.