Windows Scripts

    Dim FS, WSH, Anzahl
    Const Titel = "Automatische Datensicherung"

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set WSH = CreateObject("WScript.Shell")

    Const nDoc3PfadName = """C:\Program Files (x86)\NDoc3\bin\NDoc3Console.exe"" "

    Set oExec1 = WSH.Exec(nDoc3PfadName & "-project=ndoc-base.ndoc")
    Set oExec2 = WSH.Exec(nDoc3PfadName & "-project=ndoc-trunk-2.ndoc")
    Set oExec3 = WSH.Exec(nDoc3PfadName & "-project=ndoc-trunk-3.ndoc")

    Do While Not oExec1.StdOut.AtEndOfStream
       input1 = input1 & oExec1.StdOut.Read(1)
    Loop
    
    Do While Not oExec2.StdOut.AtEndOfStream
       input2 = input2 & oExec2.StdOut.Read(1)
    Loop
    
    Do While Not oExec3.StdOut.AtEndOfStream
       input3 = input3 & oExec3.StdOut.Read(1)
    Loop
    

    Wscript.Echo input1
    Wscript.Echo input2
    Wscript.Echo input3
 
    
    ---
    
    
    
    Dim FS, WSH, Anzahl
    Const Titel = "Automatische Datensicherung"

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set WSH = CreateObject("WScript.Shell")

    Const nNantPfadName = """C:\Program Files\nant\bin\Nant.exe"" "

    WSH.CurrentDirectory = "C:\openpetra\trunk-2\"

    Set oExec = WSH.Exec(nNantPfadName & "generateSolution")
    
    Do While Not oExec.StdOut.AtEndOfStream
       input1 = input1 & oExec.StdOut.Read(1)
    Loop
    
    Wscript.Echo input1