' Ping Process-Objekt erzeugen
        Dim PingAnwendung As System.Diagnostics.Process _
                   = New System.Diagnostics.Process
 
        ' Die StartInfo-Struktur des Process-
        ' Objekts mit Informationen befüllen
        With PingAnwendung.StartInfo
 
            ' Befehlszeileninterpreter (COMMAND.COM/CMD.EXE):
            .FileName = Environ("COMSPEC")
 
            ' Kein Konsolenfenster erzeugen:
            .CreateNoWindow = True
 
            ' StandardInput, -Output und -Error umleiten:
            .RedirectStandardInput = True
            .RedirectStandardOutput = True
            .RedirectStandardError = True
 
            ' UseShellExecute MUSS für eine Umleitung
            ' von StdIn, StdOut und StdErr FALSE sein:
            .UseShellExecute = False
 
        End With
 
        ' Den Befehlszeileninterpreter starten:
        PingAnwendung.Start()
        ' StreamReader- und Writer-Objekte für den
        ' Zugriff auf StdIn, StdOut und StdErr erzeugen
 
        ' Über ein StreamWriter-Objekt in StandardInput schreiben
        Dim StdIn As System.IO.StreamWriter = PingAnwendung.StandardInput
        StdIn.AutoFlush = True ' Puffer automatisch flushen
 
        ' Über ein StreamReader-Objekt aus StandardOutput lesen
        Dim StdOut As System.IO.StreamReader = PingAnwendung.StandardOutput
 
        ' Über ein StreamReader-Objekt aus StandardError lesen
        Dim StdErr As System.IO.StreamReader = PingAnwendung.StandardError
        Dim sTemp As String    ' Hilfsvariable
 
        ' Standardausgabe beim Starten des Befehlszeileninterpreters
        ' auslesen und damit aus dem Output-Puffer entfernen:
        sTemp &= StdOut.ReadLine() & vbNewLine
        sTemp &= StdOut.ReadLine() & vbNewLine
        sTemp &= StdOut.ReadLine() & vbNewLine
 
 
        ' Echo-Ausgaben unterdrücken
        StdIn.WriteLine("ECHO On")
 
        ' Einen DIR-Befehl über StdIn absetzen:
        StdIn.WriteLine("Ping" & TextBox1.Text)
 
        ' "ECHO OFF" und Befehlszeile "Ping 192.168.2.1"
        ' beim Auslesen ignorieren:
        sTemp = StdOut.ReadLine()
        sTemp = StdOut.ReadLine()
        sTemp = StdOut.ReadLine()
 
 
 
        MessageBox.Show("Ping Protokoll:" & _
vbCr & sTemp, "Ping")
        ' Befehlszeileninterpreter ggf. "abschießen":
        If Not PingAnwendung.HasExited Then
            PingAnwendung.Kill()
        End If
 
        ' Ressourcen des Process-Objekts freigeben
        PingAnwendung.Close()