'v3.A***************************************************  

' File:   exec-test.vbs  

' Autor:  dieseyer.de  

'         dieseyer.de 

'  

'  

'*******************************************************  

 

Option Explicit  

 

Dim WSHShell, fso, FileOut  

Dim oExec 

Dim input, inputX, i, x, NeueZeit 

Dim BatDatei 

 

Dim FSO_PP, FileOut_PP, VBSDatei_PP, Prog_PP 

Set Prog_PP = nothing 

 

Set fso      = WScript.CreateObject("Scripting.FileSystemObject") 

Set WshShell = CreateObject("WScript.Shell") 

Set WSHShell = WScript.CreateObject("WScript.Shell") 

 

BatDatei = "exec-tst.bat" 

DateiErstellen BatDatei ' Function DateiErstellen - Aufruf 

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

 

 

' Set oExec    = WshShell.Exec(                  BatDatei ) 

' Set oExec    = WshShell.Exec("%comspec% /c " & BatDatei ) 

' Set oExec    = WshShell.Exec("%comspec% /k " & BatDatei ) 

 

  Set oExec    = WshShell.Exec("%comspec% /c " & BatDatei ) 

' Start der Anwendung mit der WSHShell.Exec-Methode 

 

 

i = -1 

i = +1 

  NeueZeit =                    Hour( DateAdd("h", i, time() ) ) 

  NeueZeit = NeueZeit & ":" & Minute( DateAdd("h", i, time() ) ) 

             ' errechnen einer neuen Zeit 

' NeueZeit = "8:21" 

 

 

PopsUp NeueZeit, 20 ' Function PopsUp - Aufruf 

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

 

Do While True 

  If Not oExec.StdOut.AtEndOfStream Then 

             input = input & oExec.StdOut.Read(1) 

             ' Einlesen der Ausgaben der mit der WSHShell.Exec-Methode 

             ' gestarteten Anwendung  

 

    If InStr(input, "eben Sie die neue Zeit ein:") <> 0 Then Exit Do 

             ' enthalten die gelesenen Zeichen . . . 

             ' BatDatei hat den 'time'-Befehl ausgeführt 

  End If 

'    WScript.Sleep 3 

Loop 

 

oExec.StdIn.Write NeueZeit  

             ' übereben der neuen Zeit an die Anwendung, die mit 

             ' der mit der WSHShell.Exec-Methode gestartet wurde 

             ' (es wird automatisch [Enter] mit übergeben) 

             ' (Antwort auf den 'time'-Befehl in der BatDatei) 

 

 

  WScript.Sleep 250 

 

PopsUp "1. Do .. Loop erledigt" & vbCRLF & NeueZeit , 20 

 

WScript.Sleep 300 

 

 

inputX = "" 

Do While True 

  If Not oExec.StdOut.AtEndOfStream Then 

             inputX = inputX & oExec.StdOut.Read(1) 

             ' Einlesen der Ausgaben der mit der WSHShell.Exec-Methode 

             ' gestarteten Anwendung  

 

    If InStr(inputX, ". . . ") <> 0 Then Exit Do 

             ' enthalten die gelesenen Zeichen . . . 

             ' BatDatei hat den 'pause'-Befehl ausgeführt 

  End If 

Loop 

 

 

input = input & inputX  

 

PopsUp "2. Do .. Loop erledigt" , 20 

 

' oExec.StdIn.Write VbCrLf 

  oExec.StdIn.Write "a" 

             ' Antwort auf 'Press any Key . . . ' 

             ' (Antwort auf den 'pause'-Befehl in der BatDatei) 

 

 

             inputX = "" 

Do While True 

  If Not oExec.StdOut.AtEndOfStream Then 

             inputX = inputX & oExec.StdOut.Read(1) 

             ' Einlesen der Ausgaben der mit der WSHShell.Exec-Methode 

             ' gestarteten Anwendung  

 

    If InStr(inputX, "- Ende") <> 0 Then Exit Do 

             ' enthalten die gelesenen Zeichen . . . 

             ' BatDatei hat den 'echo ... - Ende'-Befehl ausgeführt 

  End If 

Loop 

input = input & inputX  

 

PopsUp "3. Do .. Loop erledigt" , 20 

 

 

PopsUp "Skript erledigt" , 10 

 

MsgBox vbCRLF & input , , WScript.ScriptName 

 

 

 

' ************************************************************** 

Function PopsUp ( TxT, Dauer ) ' Aufruf v3.7 - http://dieseyer.de 

' ************************************************************** 

' ACHTUNG! Ausserhalb und ver dem ersten Aufruf dieser Prozedur 

' muss einmal   "Set Prog_PP = nothing"   stehen, sonst wird es 

' mit dem "prog.terminate" innerhalb der Prozedur nichts! 

'  

' ACHTUNG! Alle Variablen müssen ausserhalb dieser Prozedur 

' deklariert werden (also folgende Zeilen an den Skript-Anafng): 

' Dim FSO_PP, FileOut_PP, VBSDatei_PP, Prog_PP 

' Set Prog_PP = nothing 

'  

' Die Vorversion hat (versucht) das PopUp über AppActivate  

' zu schließen. 

 

  Set Fso_PP      = CreateObject("Scripting.FileSystemObject")  

' VBSDatei_PP     =                              WSHShell.ExpandEnvironmentStrings("%Temp%") & "\" & Fso_PP.GetBaseName( WScript.ScriptName ) & "-MSG.VBS"  

  VBSDatei_PP     = WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%") & "\" & Fso_PP.GetBaseName( WScript.ScriptName ) & "-MSG.VBS"  

 

  On Error Resume Next 

    Prog_PP.terminate 

'   If not err.Number = 0 then MsgBox err.Description 

  On Error GoTo 0 

 

  If Txt = "" then     

'   On Error Resume Next 

      IF Fso_PP.FileExists(VBSDatei_PP) then Fso_PP.DeleteFile(VBSDatei_PP) ' löscht das MSG-VBScript  

'   On Error GoTo 0 

      Exit Function    

  End If  

 

  Txt = Replace( Txt, vbCRLF, """ & vbCRLF & """ ) 

 

  Set FileOut_PP = Fso_PP.OpenTextFile(VBSDatei_PP, 2, true)         ' MSG-VBScript öffnen mit neu anlegen  

      FileOut_PP.WriteLine "WScript.CreateObject(""WScript.Shell"").Popup """ & Txt & """ , " & Dauer & ", """ & Fso_PP.GetFileName( VBSDatei_PP ) & " "" "  

      FileOut_PP.Close 

  Set FileOut_PP = Nothing  

  

  Set Prog_PP = createObject("WScript.Shell").exec( "WScript " & VBSDatei_PP ) 

 

  Set Fso_PP      = Nothing  

 

End Function ' PopsUp v3.7 - http://dieseyer.de 

' ************************************************************** 

 

 

 

 

' ************************************************************** 

Function DateiErstellen ( Datei ) ' Aufruf  

' ************************************************************** 

 

Set FileOut  = FSO.OpenTextFile( Datei , 2, true) ' Datei zum Screiben öffnen; 2: immer neu anlegen 

 

FileOut.WriteLine( "time    " ) 

' 1. Do .. Loop - Schleife liest die Ausgaben von "time" aus 

 

FileOut.WriteLine( "@echo." ) 

FileOut.WriteLine( "@echo ""doll"" " ) 

FileOut.WriteLine( "@echo." ) 

FileOut.WriteLine( "@echo COMSPEC steht auf: %comspec% " ) 

FileOut.WriteLine( "dir c:\pr*.* /b  " ) 

FileOut.WriteLine( "@ping 127.0.0.1" ) 

FileOut.WriteLine( "@echo.  " ) 

FileOut.WriteLine( "@echo X = = = X " ) 

FileOut.WriteLine( "@echo." ) 

FileOut.WriteLine( "@pause" ) 

' 2. Do .. Loop - Schleife liest die Ausgaben BIS "pause" aus 

 

FileOut.WriteLine( "@echo." ) 

FileOut.WriteLine( "@echo %0 - Ende " ) 

' 3. Do .. Loop - Schleife liest die Ausgaben BIS zu den 

' Ausgaben von "@echo %0 - Ende" aus 

 

    FileOut.Close 

Set FileOuT  = nothing 

 

End Function ' DateiErstellen ( BatDatei )  

' **************************************************************