Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Seite 3 von 3 ErsteErste 123
Ergebnis 21 bis 30 von 30

Thema: WinCC flex RC RT - Internetverbindung überwachen

  1. #21
    Registriert seit
    22.06.2009
    Ort
    Sassnitz
    Beiträge
    11.163
    Danke
    921
    Erhielt 3.286 Danke für 2.655 Beiträge

    Standard


    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.xyz",0,True))
    Harald
    Es ist immer wieder überraschend, wie etwas plötzlich funktioniert, sobald man alles richtig macht.

    FAQ: Linkliste SIMATIC-Kommunikation über Ethernet

  2. #22
    DerMatze ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    24.01.2012
    Beiträge
    511
    Danke
    92
    Erhielt 21 Danke für 20 Beiträge

    Standard

    Ja sowas schwebte mir vor, hab es wegen dem schönen Wetter jetzt am WE aber nicht mehr weiter verfolgt.
    -----------------------------------------------------------------------------------------
    Programmierumgebung: Step 7 V5.5 + SP3
    WinCC flexible 2008 Advanced + SP3
    -----------------------------------------------------------------------------------------

  3. #23
    DerMatze ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    24.01.2012
    Beiträge
    511
    Danke
    92
    Erhielt 21 Danke für 20 Beiträge

    Standard

    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
    -----------------------------------------------------------------------------------------
    Programmierumgebung: Step 7 V5.5 + SP3
    WinCC flexible 2008 Advanced + SP3
    -----------------------------------------------------------------------------------------

  4. #24
    Registriert seit
    06.10.2004
    Ort
    Kopenhagen.
    Beiträge
    4.616
    Danke
    377
    Erhielt 799 Danke für 642 Beiträge

    Standard

    Du kannst 3-mal in Reihe probieren.

    Etwa wie:

    Code:
    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
        ShowSystemAlarm "PING OK. " & CStr(i) & " attempts used."
    ELSE
        ShowSystemAlarm "PING Failed"
    END_IF
    
    SmartTags("Intern\pingflag") = VerbOK
    SmartTags("Verbinung") = VerbOK
    
    WsShell = nothing
    Jesper M. Pedersen

  5. Folgender Benutzer sagt Danke zu JesperMP für den nützlichen Beitrag:

    DerMatze (08.05.2014)

  6. #25
    DerMatze ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    24.01.2012
    Beiträge
    511
    Danke
    92
    Erhielt 21 Danke für 20 Beiträge

    Standard

    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
    =====================

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

    Gruß
    Matze
    Geändert von DerMatze (09.05.2014 um 21:57 Uhr) Grund: Nachtrag
    -----------------------------------------------------------------------------------------
    Programmierumgebung: Step 7 V5.5 + SP3
    WinCC flexible 2008 Advanced + SP3
    -----------------------------------------------------------------------------------------

  7. #26
    DerMatze ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    24.01.2012
    Beiträge
    511
    Danke
    92
    Erhielt 21 Danke für 20 Beiträge

    Standard

    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
    -----------------------------------------------------------------------------------------
    Programmierumgebung: Step 7 V5.5 + SP3
    WinCC flexible 2008 Advanced + SP3
    -----------------------------------------------------------------------------------------

  8. #27
    Registriert seit
    06.10.2004
    Ort
    Kopenhagen.
    Beiträge
    4.616
    Danke
    377
    Erhielt 799 Danke für 642 Beiträge

    Standard

    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
    Jesper M. Pedersen

  9. #28
    DerMatze ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    24.01.2012
    Beiträge
    511
    Danke
    92
    Erhielt 21 Danke für 20 Beiträge

    Standard

    solange keine weiteren Blue Screen auftauchen, lasse ich es so laufen - getreu dem Motto: never touch a running system
    Trotzdem Danke!
    -----------------------------------------------------------------------------------------
    Programmierumgebung: Step 7 V5.5 + SP3
    WinCC flexible 2008 Advanced + SP3
    -----------------------------------------------------------------------------------------

  10. #29
    Registriert seit
    06.10.2004
    Ort
    Kopenhagen.
    Beiträge
    4.616
    Danke
    377
    Erhielt 799 Danke für 642 Beiträge

    Standard

    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.
    Jesper M. Pedersen

  11. #30
    DerMatze ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    24.01.2012
    Beiträge
    511
    Danke
    92
    Erhielt 21 Danke für 20 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    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
    -----------------------------------------------------------------------------------------
    Programmierumgebung: Step 7 V5.5 + SP3
    WinCC flexible 2008 Advanced + SP3
    -----------------------------------------------------------------------------------------

Ähnliche Themen

  1. Antworten: 2
    Letzter Beitrag: 11.06.2012, 09:20
  2. Antworten: 4
    Letzter Beitrag: 28.01.2010, 10:38
  3. WinCC flexible Aktivität überwachen
    Von geduldiger im Forum HMI
    Antworten: 12
    Letzter Beitrag: 03.09.2007, 08:47
  4. Antworten: 3
    Letzter Beitrag: 25.06.2007, 17:40
  5. Bit-Wechsel in WinCC überwachen
    Von Bender25 im Forum HMI
    Antworten: 0
    Letzter Beitrag: 12.09.2006, 21:05

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •