15 IPs pingen und antowrt erhalten (mit vb)

[Potassium]

das is doch ziemlich sehr umständlich.....ich dacht ich kann das umgehen eben mit einem APIaufruf oä

[Potassium]

Original geschrieben von flinx
Könntets nicht mit dem Shell-Aufruf das Ergebnis vom Ping in eine Datei umleiten und diese dann Öffnen und das Ergebnis ausgeben?

hab das jetzt nochmal probiert aber irgendwie funzt das gar ned. er führt den shellbefehl ned richtig aus oder er findet die datei ned oder wos was i.....
i hob mi heute damit 5 stunden gespüt....
da muss es doch noch was geben.......

[flinx]

hab das jetzt nochmal probiert aber irgendwie funzt das gar ned.

??
Habs nur unter Excel probiert, aber des funktioniert:

Sub irgendwas()
    Test = Shell("cmd.exe /C ping 10.1.1.4 >d:\myip.txt")  
    Open "d:\myip.txt" For Input As #1
         Do Until EOF(1)
            Line Input #1, meintext
            If meintext <> "" Then MsgBox meintext
         Loop
         Close #1

End Sub

[Potassium]

das geht ned. weil das pingen und in datei ausgeben vergleichsweise ewig dauert. und er aber sofort öffnen will.

[flinx]

Original geschrieben von potassium
das geht ned. weil das pingen und in datei ausgeben vergleichsweise ewig dauert. und er aber sofort öffnen will.

Dann baust halt ein 'sleep' zum warten ein.

[Potassium]

is sleep vb? in der msdn steht nix über sleep in vb.

[daytrader]

aber hier:

http://www.vbarchiv.net/vbapi/Sleep.php