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

[Michael II]

Und du hast sicher bereits gecheckt, ob Windows-Verwaltungsinstrumentation (WMI) aktiviert wird (msconfig > Dienste) und auch geprüft, ob WMI tatsächlich läuft (Dienste).
Dein Code ist auf WMI angewiesen. [Falls du keinen speziellen Grund hast, WMI zu nutzen fürs Pingen, dann mach's ohne.]

[Sherlock]

Der Ping Befehl auf der Konsole geht. Ich bin gerade dabei die WMI nach dieser Anleitung zu reparieren.

Sherlock

[Sherlock]

Ich habe jetzt zu einem Snapshot aus dem letzten Monat zurückgerollt. Ich muss jetzt herausfinden welches der Updates seither zu diesem Verhalten führt, und dieses Ausnehmen - so ich das denn überhaupt kann. Die Win10 Update Einstellungen sind etwas...vereinfacht. Frei nach dem Motto: Ganz oder gar nicht.

Übrigens brauche ich das WMI-Ping weil es die einzige Methode ist, ohne Adminrechte über alle aktuellen Windows Versionen zu pingen. Werde aber wohl oder übel mir ein anderes Verfahren mit UDP ausdenken müssen, weil ich das Crossplatform nutzen möchte.

Sherlock

[Michael II]

Hallo Sherlock

Die Pingkomponente von ICS (Overbyte) via Delphi (neuere Versionen) > Tools > GetIt hast du gecheckt? Wenn Ja: Bei welcher Windows Version funktioniert diese Komponente ohne Admin-Rechte nicht?

Gruss
Michael

[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 von 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

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.