Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ping senden und auswerten {Nachgefragt}
zurück: Zeichen in Text durch Funktion unterschiedlich formatieren weiter: 0 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
megabyte_
Gast


Verfasst am:
12. Jun 2006, 10:42
Rufname:

Ping senden und auswerten {Nachgefragt} - Ping senden und auswerten {Nachgefragt}

Nach oben
       

Nachfragen zum Thema Ping senden und auswerten (Willi Wipp)

Hi @ all

Ich habe den Code so wie du Ihn gepostet hast mal in mein Projekt übernommen.
Ist der Rechner an der gepingt werdn soll funktioniert das ganz gut.
Aber wehe der Rechner ist aus.
Dann stürzt die Anwendung ab!
artifides
Gast


Verfasst am:
03. Sep 2008, 10:42
Rufname:


AW: Ping senden und auswerten - AW: Ping senden und auswerten

Nach oben
       Version: Office 2003

habe das script in excel eingebunden auch dort läuft es soweit so gut, ausser der rechner ist aus und der ping läuft sich tot. dann wartet das script anscheinend auf den sankt nimmerleinstag, oder bis der rechner wieder pingbar ist.

wie kann man das unterbinden?
gibt es eine zeitfunktion, die nebenher laufen könnte und die funktion dann irgendwann unterbricht?
Willi Wipp
Moderator


Verfasst am:
04. Sep 2008, 02:43
Rufname:
Wohnort: Raum Wiesbaden

Re: Ping senden und auswerten (II) - Re: Ping senden und auswerten (II)

Nach oben
       

Hi Ihr Zwei,

das kann ich so nicht nachvollziehen. Bei mir funktioniert es sowohl mit erreichbaren,
als auch mit nicht erreichbaren bzw. nicht existierenden Adressen.
Was passiert denn, wenn Ihr versucht die Adresse im DOS-Eingabefenster anzupingen?

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
mfreye
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Aug 2009, 16:36
Rufname:


AW: Ping senden und auswerten {Nachgefragt} - AW: Ping senden und auswerten {Nachgefragt}

Nach oben
       

mfreye am 15. Aug 2009 um 15:19 hat folgendes geschrieben:
Hallo,

habe deine Code mal genommen, leider werden auch nicht erreichbare IP als erreichbar angezeigt?!

Habe in meinen Netz die Adresse 111 nicht!
Code:
'Beispiel A
Sub a()
    Dim nTime As Single
 
    nTime = IP_Ping("192.168.134.111")
    If nTime <> -1 Then
        MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden"
      Else
        MsgBox "Server nicht erreichbar!"
    End If
End Sub
Aber der Ping ist gut, ist immer 0 Sekunden Very Happy
Was mache ich dort falsch?
Mit einem Name geht es!

Code:
    nTime = IP_Ping("www.web.de")
erreichbar
Code:
    nTime = IP_Ping("www.webddd.de")
nicht erreichbar

mfg
mfreye

Hallo.

Habe einen anderen Code gefunden, damit geht es mit Ping, aber ohne Batchdatei.
Code:
'----------------------------------------------------------------------------
' Ping()
' Prüfen von IP Adressen und Web Adressen
'----------------------------------------------------------------------------
' strRechner      : IP oder Web Adresse
'----------------------------------------------------------------------------
Public Function Ping(strRechner As String)
    Dim objPing, objPingResult

    On Error Resume Next  'und ab ohne Fehlerbehandlung
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .ExecQuery("SELECT * " & _
                                        "FROM Win32_PingStatus " & _
                                       "WHERE address = '" & strRechner & "'")
    For Each objPingResult In objPing
        If IsNull(objPingResult.StatusCode) Or _
           objPingResult.StatusCode <> 0 Then
            Ping_Result = False  'IP oder Web Adresse nicht erreichbar
            Ping_Bytes = ""  'Bytes
            Ping_Time = ""  'Zeit
            Ping_TTL = ""  'TTL
          Else
            Ping_Result = True  'IP oder Web Adresse nicht erreichbar
            Ping_Bytes = objPingResult.BufferSize  'Bytes
            Ping_Time = objPingResult.ResponseTime  'Zeit
            Ping_TTL = objPingResult.ResponseTimeToLive  'TTL
        End If
    Next objPingResult
End Function

mfg
mfreye
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum 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.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Kontrollkästchen in Abfrage auswerten 8 pekra62 93 10. März 2014, 10:06
pekra62 Kontrollkästchen in Abfrage auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Fragebögen erfassen und auswerten 34 Yenzen 1038 25. Sep 2012, 19:14
Yenzen Fragebögen erfassen und auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Auswerten()-Funktion in Abfrage, um Formel auszulesen 2 Koboldchen 199 25. Sep 2012, 10:55
Koboldchen Auswerten()-Funktion in Abfrage, um Formel auszulesen
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2007 mail per Outlook senden. 1 tadeusT 515 22. März 2012, 20:38
Sonneschein Access 2007 mail per Outlook senden.
Keine neuen Beiträge Access Tabellen & Abfragen: DoCmd.SendObject --> E-Mail Adressen ins Bcc Feld senden 7 Fmarmy 1232 03. Aug 2011, 14:15
Fmarmy DoCmd.SendObject --> E-Mail Adressen ins Bcc Feld senden
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten einer Tabelle vergleichen und auswerten 2 LukeD 395 28. Jun 2010, 10:18
LukeD Spalten einer Tabelle vergleichen und auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Abfragen auswerten 1 armin0_1 185 08. Sep 2009, 19:46
Marmeladenglas 2 Abfragen auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Fittnessstudio: Abnehmverhalten berechen und auswerten 0 Sandmann 306 16. Feb 2009, 23:39
Sandmann Fittnessstudio: Abnehmverhalten berechen und auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten aus Kreuztabelle auswerten 3 bör77 1211 25. Jun 2008, 02:08
Willi Wipp Spalten aus Kreuztabelle auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Zeitraum auswerten über Formular aus Datums-Feld in Tabelle 1 Nala 1114 12. Feb 2008, 17:54
Frank_xyz Zeitraum auswerten über Formular aus Datums-Feld in Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage auswerten und automatisch anpassen 1 H3llGhost 498 12. Feb 2008, 14:03
Da Oansa Parameterabfrage auswerten und automatisch anpassen
Keine neuen Beiträge Access Tabellen & Abfragen: Summe und Anzahl für einen Zeitraum monatsweiße auswerten 0 Kelvin_ 713 23. Jul 2007, 09:38
Kelvin_ Summe und Anzahl für einen Zeitraum monatsweiße auswerten
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS