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")

    Do While Not oExec1.StdOut.AtEndOfStream
       input1 = input1 & oExec1.StdOut.Read(1)
    Loop
    
    Wscript.Echo input1