Dim p As New Process
        Dim psii As New ProcessStartInfo( _
          "C:\AE\pdfmerge2.cmd")
        psii.UseShellExecute = False
        psii.RedirectStandardError = True
        psii.RedirectStandardOutput = True
        p.StartInfo = psii
        p.Start()

=====================================

Gruss
Tobias

=====================================

Gruss
Tobias

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim strFilePath2 As String = "C:\AE\pdfmerge_xxx.cmd"
 
        ' Create the ProcessInfo object
        Dim psi2 As New System.Diagnostics.ProcessStartInfo("cmd.exe")
        psi2.UseShellExecute = False
        psi2.RedirectStandardOutput = True
        psi2.RedirectStandardInput = True
        psi2.RedirectStandardError = True
        psi2.WorkingDirectory = "C:\AE\"
 
        ' Start the process
        Dim proc2 As System.Diagnostics.Process = _
          System.Diagnostics.Process.Start(psi2)
 
        '' Open the batch file for reading
        Dim strm2 As System.IO.StreamReader = System.IO.File.OpenText( _
          strFilePath2)
 
        '' Attach the output for reading
        Dim sOut2 As System.IO.StreamReader = proc2.StandardOutput
 
        '' Attach the in for writing
        Dim sIn2 As System.IO.StreamWriter = proc2.StandardInput
 
        '' Write each line of the batch file to standard input
        While strm2.Peek() <> -1
            sIn2.WriteLine(strm2.ReadLine())
        End While
 
        strm2.Close()
 
        '' Exit CMD.EXE
        Dim stEchoFmt2 As String = "# {0} run successfully. Exiting"
 
        sIn2.WriteLine([String].Format(stEchoFmt2, strFilePath2))
        sIn2.WriteLine("EXIT")
 
        ' Close the process
        proc2.Close()
 
        '' Read the sOut to a string.
        Dim results2 As String = sOut2.ReadToEnd().Trim()
 
        '' Close the io Streams;
        sIn2.Close()
        sOut2.Close()
 
        ''Write out the results.
        Dim fmtStdOut2 As String = "<font face=courier size=0>{0}</font>"
        Me.Response.Write([String].Format(fmtStdOut2, results2.Replace( _
          System.Environment.NewLine, "<br>")))
        '
        output3.Text = System.Security.Principal.WindowsIdentity.GetCurrent( _
          ).Name
        output4.Text = results2

=====================================

Gruss
Tobias

Dim strFilePath2 As String = "c/ C:\AE\pdfmerge_xxx.cmd"

' Create the ProcessInfo object
        Dim psi2 As New System.Diagnostics.ProcessStartInfo("cmd.exe")
        psi2.UseShellExecute = False
        psi2.RedirectStandardOutput = True
        psi2.RedirectStandardInput = True
        psi2.RedirectStandardError = True
        psi2.WorkingDirectory = "C:\AE\"
        psi2.WaitForExit()

=====================================

Gruss
Tobias

Dim psi2 As New System.Diagnostics.ProcessStartInfo(
    "cmd.exe", "/c C:\AE\pdfmerge_xxx.cmd")

Dim strfilePath1 As String = "/c "
        Dim strFilePath2 As String = "\\WEB1\AE\pdfmerge_xxx.cmd"
        Dim strfilePath3 As String = strfilePath1 & strFilePath2
 
        ' Create the ProcessInfo object
        Dim psi2 As New System.Diagnostics.ProcessStartInfo("cmd.exe", _
          strfilePath3)
        psi2.UseShellExecute = False
        psi2.RedirectStandardOutput = True
        'psi2.RedirectStandardInput = True
        psi2.RedirectStandardError = True
        psi2.WorkingDirectory = "\\WEB1\AE\"
 
        ' Start the process
        Dim proc2 As System.Diagnostics.Process = _
          System.Diagnostics.Process.Start(psi2)
        proc2.WaitForExit()
 
        '' Open the batch file for reading
        Dim strm2 As System.IO.StreamReader = System.IO.File.OpenText( _
          strFilePath2)
 
        '' Attach the output for reading
        Dim sOut2 As System.IO.StreamReader = proc2.StandardOutput
 
        strm2.Close()
 
        ''Close the process
        'proc2.Close()
 
        ' Read the sOut to a string.
        Dim results2 As String = sOut2.ReadToEnd().Trim()
 
        'Write out the results.
        Dim fmtStdOut2 As String = "<font face=courier size=0>{0}</font>"
        Me.Response.Write([String].Format(fmtStdOut2, results2.Replace( _
          System.Environment.NewLine, "<br>")))
        ''
        output3.Text = System.Security.Principal.WindowsIdentity.GetCurrent( _
          ).Name

=====================================

Gruss
Tobias

Beitrag wurde zuletzt am 21.03.11 um 16:15:41 editiert.

=====================================

Gruss
Tobias

=====================================

Gruss
Tobias

=====================================

Gruss
Tobias

=====================================

Gruss
Tobias