WinCC flex RC RT - Internetverbindung überwachen

Zuviel Werbung?
-> Hier kostenlos registrieren
Nicht erfolgreiches Ping simulieren durch Ping zu einer nicht existierenden Internetadresse:
Code:
SmartTags("Intern\pingflag") = Not CBool(WshShell.Run("ping -n 1 www.google.[COLOR="#FF0000"]xyz[/COLOR]",0,True))

Harald
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Nun ein kleiner Nachtrag:

Das Auswerten funktioniert soweit. Ich bekomme lediglich ein paar Fehlmeldungen. Soll heißen, das Bit wird machmal "0" obwohl die Verbindung OK ist. Lässt sich im Script irgendwie eine Verzögerung einbauen oder zwei - drei "Verbindungstests" bevor das Bit auf 0 gesetzt wird?
Dann kann die SPS sicher sein das die Verbindung n.i.O. ist und den Router zurücksetzen...

Gruß
Matze
 
Du kannst 3-mal in Reihe probieren.

Etwa wie:

Code:
[FONT=courier new]Dim WshShell, VerbOK, i
Set WshShell = CreateObject("WScript.Shell")

FOR i=1 TO 3 
    VerbOK = Not CBool(WshShell.Run("ping -n 1 www.google.de",0,True))
    IF VerBOK THEN 
       EXIT FOR
    END IF
NEXT

IF VerbOK THEN
[/FONT][FONT=courier new]    ShowSystemAlarm "PING OK. " & CStr(i) & " attempts used."[/FONT][FONT=courier new]
ELSE
    ShowSystemAlarm "PING Failed"
END_IF

SmartTags("Intern\pingflag") = VerbOK
SmartTags("Verbinung") = VerbOK

WsShell = nothing[/FONT]
 
Danke für die superschnelle Antwort!
Das werde ich mal testen.

=====================
Nachtrag 09.05.2014:
Funktioniert nun besser, konnte bislang keine Fehlmeldung verzeichnen...
Werde es noch etwas im Auge behalten, bevor die SPS den Router dann automatisch zurücksetzt wenn dieser nicht mehr will :ROFLMAO:
=====================

Danke nochmals für die sehr gute Unterstützung!!!!

Gruß
Matze
 
Zuletzt bearbeitet:
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo,

und sorry für die extrem verspätete Rückmeldung.
Also mit der unter #24 genannten Variante lief Windows irgendwie nicht mehr stabil. Blue Screen in immer kürzeren Abständen...?!
Ich habe dann den Skriptaufruf entfernt, bislang kein Blue Screen mehr - was jetzt nicht unbedingt auf die Flex Änderung zurückzuführen ist, aber ich kanns mir nicht anders erklären.
Es gibt im Projekt ein "Unterprogramm" als Skript, in dem eine Wartezeit bearbeitet wird. Diese rufe ich nun in dem Verbindungstest Skript auf = bislang keine Auffälligkeiten mehr.

Gruß
Matze
 
Habe gerade den Code etwas verbessert und getestet. Funktioniert bei mir.

winccflexpingtest.png

Code:
Dim WshShell, VerbOK, iSet WshShell = CreateObject("WScript.Shell")
ShowSystemAlarm "Starting PING test of " & strwebsite
For i=1 To 3 
    VerbOK = Not CBool(WshShell.Run("ping -n 1 " & strwebsite,0,True))
    If VerbOK Then 
       Exit For
    End If
Next


If VerbOK Then
    ShowSystemAlarm "PING OK. " & CStr(i) & " attempts used."
Else
    ShowSystemAlarm "PING Failed"
End If


SmartTags("pingflag") = VerbOK


Set WshShell = Nothing
 
solange keine weiteren Blue Screen auftauchen, lasse ich es so laufen - getreu dem Motto: never touch a running system :ROFLMAO:
Trotzdem Danke!
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Hast du andere VBS Skripte ?
Wenn der ping test Skript lauft, dauert es ungf. 1 Sekunde wenn der ping klappt, aber 30 Sekunden wenn es nicht klappt.
In dieser 30 Sekunden kann es Probleme geben wenn andere Skripte gestartet werden.
 
Ich habe den Aufruf des Verbindungstests so gelegt (Aufgabenplaner), dass es zu keinen Überschneidungen mit anderen Skripten kommt.
Die anderen Skripte werden nur dreimal täglich zu definierten Zeiten (Aufgabenplaner) bearbeitet

Gruß
Matze
 
Zurück
Oben