Abfrage des win32_pingstatus per WMI schlägt "plötzlich" fehl

[Sherlock]

Das ich nicht an die ICS gedacht habe.... Schande über mich. Ich bin doch sonst seit Jahren ein Fan von Francois Piette.

Ich probiere das gleich aus.

Sherlock

[Delphi.Narium]

Würden die Indy-Komponenten bei Crossplattform funktionieren?

Wenn ja:
Komponente TIdIcmpClient.
Dem Ereignis OnReply eine Routine zuweisen.

Delphi-Quellcode:

// Auf dem Formular
    Ping: TIdIcmpClient;

// Buttonclick oder so:
Ping.Host := 'IP oder Rechnername';
Try
  Ping.Ping;
Except
  on e : Exception do begin
    // Naja, Fehlerbehandlung ...
  end;
end;

// Ereignisroutine:
procedure TForm1.PingReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
  if AReplyStatus.FromIpAddress = '0.0.0.0' then exit;
  // AReplyStatus auswerten:
  // z. B.:
  ShowMessage(Format('%s - %s - Replay: %s - %d ms', [
    Ping.Host, 
    AReplyStatus.FromIpAddress, 
    AReplyStatus.Msg, 
    AReplyStatus.MsRoundTripTime
  ]));
end;

[Sherlock]

Hatte die Indys ausgeklammert, weil die bis Win7 für Ping Admin-Rechte benötigen. Muss das natürlich noch für die ICS testen.

Sherlock

[Michael II]

Zitat:

Zitat von Sherlock (Beitrag 1388595)

Hatte die Indys ausgeklammert, weil die bis Win7 für Ping Admin-Rechte benötigen. Muss das natürlich noch für die ICS testen.

Sherlock

Sollte schon laufen - ich nutze es in einem Onlinespiel und da haben nicht alle Admin Rechte.

Hab's aber rasch gecheckt - Gastkonto unter Windows 10 16299 eingerichtet - "Benachrichtigung auf maximal" eingestellt - Ping läuft (natürlich auch ohne WMI aktiviert ;-)).

Ob Indy immer noch RAW nutzt und es deshalb Probleme gibt mit UAC weiss ich nicht - ich nutze ausschliesslich ICS.

[Sherlock]

Ha, danke für's probieren, hätte mir sonst heute morgen die Win7-VM bei MS runtergeladen.
Bleibt halt für mich noch das kleine Thema "plattformübergreifend" unter iOS geht gar kein Ping und unter macOS geht die Lösung die ich habe auch nicht. Ich könnte zwar darauf verzichten, aber es beschleunigt die Erkennung, ob eine Maschine prinzipiell da wäre...

Sherlock