Windows Scripts

From OpenPetra Wiki
Revision as of 10:23, 17 May 2011 by Wolfganguhr (talk | contribs)
Jump to navigation Jump to search

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