|
Hi, leider kann ich damit nichts anfangen, da ich nicht so tief drin bin.
Wenn ich das aber richtig gelesen habe, kann ich damit meinen Netzwerk adapter und diverse Einstellungen abfragen.
Wie ich darüber einen Ping an eine bestimmte Adresse durchführen kann, habe ich jetzt nicht gelesen.
Ich habe das Makro jetzt schon ziemlich am laufen, wenn nicht die Timeouts oder so etwas mir einen Strich durch die Rechnung machen.
von 10 Pings werden 9 richtig angezeigt und einer ist falsch.
Ich habe halt keine Ahnung wo ich das "Pingende" abfragen kann.
So bleibt mir nur mit einem Wartebefehl im Code zu hoffen, das es richtig erkannt wird.
Dim i As Long
For i = 1 To 100000 ' Excel sperrt in dieser Zeit nicht die Arbeit
DoEvents ' Ermöglicht es Excel, Ereignisse zu verarbeiten
Next i
Set objExec = WSHShell.Exec("%comspec% /c Ping " & strText & " -n 1 -w 100")
Wichtig wäre es für mich auch zu erfahren was das "-w 100" in der Zeile genau bewirkt und welche Zeit dort eingetragen werden sollte.
Im Netz habe ich Zeiten von 100 bis 5.000 gesehen.
Was ist richtig?
Gibt es eine Variable die mir sagt das der Ping fertig ist?
Grüße Bernd
|