title image


Smiley bisheriger Code, den ich gebastelt habe...
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)



Wie kann ich jetzt aber das Ergebnis auswerten? D.h. wenn der Ping ok ist, evtl. eine Schleife einbauen (und ein paar Minuten warten) und wenn das Ergebnis negativ ist, soll eine Warnung gesendet werden - evtl. als eMail.



Horst

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: