Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Meldung unterdrücken: "VPN Server antwortet nicht"

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
hweber
•--->
•--->


Anmeldedatum: 01.02.2004
Beiträge: 397

BeitragVerfasst am: 19.12.2012 - 17:13    Titel: Meldung unterdrücken: "VPN Server antwortet nicht" Antworten mit Zitat

Unser VPN Server ist nicht sehr zuverlässig zu erreichen (soll an dyndns liegen). Dem wollte ich durch ein Script abhelfen (siehe unten)
Das Script tut auch was es soll, aber ich scheitere daran diese Meldung zu unterdrücken:
[img]
http://elektropapier.de/vpn_antwortet_nicht.tiff
[/img]
Bin für jede Anregung dankbar, mag sie auch noch so trivial ercheinen.
h
Code:

global verbinungsstatus
global gewaehlte_verbindung
global zaehler_nicht_verbunden
set zaehler_nicht_verbunden to 0

try
   verbindungsauswahl()
end try

on idle
   try
      verbinungsstatus_testen()
      if verbinungsstatus is "VPN ist nicht verbunden." then
         vpn_verbinden()
      else
         tell me to quit
      end if
      return 60
   end try
end idle


on verbindungsauswahl()
   tell application "System Events"
      tell current location of network preferences
         set verbindungsliste to name of services as list
         set anzahl_verbindungen to count items of verbindungsliste
         repeat until verbindungsliste is {}
            set vorschlag to item 1 of verbindungsliste as text
            
            display dialog "Wählen Sie eine Verbindung aus:" default answer vorschlag buttons {"Auswählen", "Weiter"} default button 1
            
            set theresult to result
            
            set result_knopf to get button returned of theresult
            set result_text to get text returned of theresult
            
            if result_knopf is "Auswählen" then
               set gewaehlte_verbindung to result_text
               return
            else
               set verbindungsliste to the rest of verbindungsliste
            end if
         end repeat
      end tell
   end tell
end verbindungsauswahl


on verbinungsstatus_testen()
   set activeInterfaces to do shell script "ifconfig -lu" as text
   get activeInterfaces
   if activeInterfaces contains "ppp0" then
      set verbinungsstatus to "VPN ist bereits verbunden."
      activate
      display dialog verbinungsstatus
   else
      set verbinungsstatus to "VPN ist nicht verbunden."
      if zaehler_nicht_verbunden = 0 then
         activate
         display dialog verbinungsstatus & " Ich versuche alle 60 Sekunden eine Verbinung herzustellen."
      end if
      set zaehler_nicht_verbunden to 1
   end if
end verbinungsstatus_testen



on vpn_verbinden()
   tell application "System Events"
      tell current location of network preferences
         set meinVPN to service gewaehlte_verbindung
         connect meinVPN
      end tell
   end tell
end vpn_verbinden
[/img]
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter