title image


Smiley hier mein Beispiel, aber wie kann ich das Ping Ergebnis auswerten?
Dim ping1 As New System.Diagnostics.Process

ping1.StartInfo.FileName = "c:\windows\system32\ping"

ping1.StartInfo.Arguments = "172.16.166.34"

ping1.StartInfo.UseShellExecute = False

ping1.StartInfo.RedirectStandardOutput = True

Dim Output As String

ping1.Start()

Output = ping1.StandardOutput.ReadToEnd()

MsgBox(Output)





Das ist mein bisheriges Beispiel, hast du eine Idee wie ich das Ergebnis des Pings auswerten kann?

If Output = ("Antwort von...") then msgbox ("Alles ok!"), oder so ähnlich?



Gruß

Horst

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: