Rechner anpingen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Wenn du den Rechner anpingst erhältst du eine fiktive Nummer ohne Aussagekraft.
Die ändert sich bei jedem Ping.
Den einzigen Ausweg den ich kenne ist, wie auch bei Herber schon mal beschrieben, eine Text-Datei als Ausgabe zu erstellen, und daraus das Ergebnis zu extrahieren.
Statt Debug.print kannst du auch Msgbox "Rechner da" verwenden

Sub Check_IP_Number()
'by Ramses
'Hilfsvariable für Anzahl Datensätze
Dim Text1 As String
'Variablen für den Array nötig
Dim txtlines As Long, i As Long, n As Long
'Für Office97 muss das Array "TextArr" als String definiert werden
'Entdeckt duch Gerd Z aus dem Herber Forum
Dim textArr As Variant, myCmd As Variant, myIp As String
Dim ReadFile As String
'Export der IP-Adress in ein txt File
'Den Namen und Pfad bitte anpassen
ReadFile = "C:\myIP.txt"
myCmd = Shell("cmd.exe /C ping 192.168.0.2 > " & ReadFile)
'Erzeugt diese Einträge in der Datei
'
'Ping wird ausgefhrt fr 192.168.0.2 mit 32 Bytes Daten:
'Antwort von 192.168.0.2: Bytes=32 Zeit=8ms TTL=128
'Antwort von 192.168.0.2: Bytes=32 Zeit=2ms TTL=128
'Antwort von 192.168.0.2: Bytes=32 Zeit=3ms TTL=128
'Antwort von 192.168.0.2: Bytes=32 Zeit=3ms TTL=128
'
'Ping-Statistik fr 192.168.0.2:
'
'Pakete: Gesendet = 4, Empfangen = 4, Verloren = 0 (0% Verlust),
'Ca. Zeitangaben in Millisek.:
'Minimum = 2ms, Maximum = 8ms, Mittelwert = 4ms
'------
'Schliessen einer geöffneten Datei
Close #1
Open ReadFile For Input As #1
'Die anzahl ist nötig um die Grösse des Arrays zu deklarieren
'Zähler auf 0 setzen
txtlines = 0
Do While Not EOF(1)    ' Schleife bis Dateiende.
    Line Input #1, Text1    ' Hilfsvariable zum einlesen verwenden
    'Zähler hochzählen
    txtlines = txtlines + 1
Loop
'Schliessen der Datei weil Dateiende erreicht wurde
Close #1
'Erneutes Öffnen um zum Dateianfang zu kommen
Open ReadFile For Input As #1    ' Datei zum Einlesen öffnen.
'Array neu auf die Anzahl der Linien initialisieren
ReDim textArr(txtlines)
'Einlesen der Dateien in das Array
For i = 1 To txtlines - 1
    Line Input #1, textArr(i)
Next i
Close #1
'IP String auslesen
For i = 1 To txtlines
    'Die IP-Adresse muss vorkommen
    If Left(textArr(i), 7) = "Antwort" And InStr(1, textArr(i), "192.168.0.2") Then
        ' in der übernächsten Zeile kommen die Antwortzeiten
        For n = 2 To 5
            'in den nächsten 4 Zeilen kommen die Antwortzeiten
            Debug.Print Trim(Right(textArr(i + n), Len(textArr(i + n)) - InStrRev(textArr(i + n), ":", -1)))
        Next n
    End If
Next i
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruss Rainer

Sub pruefen() Rechner = "haupt" ' hier bitte den rechnernamen eintragen ShellAndWait ("CMD.EXE /c " & "ping " & Rechner & " > C:\Test.txt") Close #1 Open "c:\Test.txt" For Input As #1 Input #1, Textzeile If Left(Textzeile, 4) = "Ping" Then MsgBox ("Der Rechner " & Rechner & " ist nicht erreichbar") Else MsgBox ("Der Rechner " & Rechner & " ist erreichbar") End If Close #1 Kill "c:\Test.txt" End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread