Tracert alternativ mit Indy möglich?

[Rolf Frei]

Delphi-Quellcode:

DNS:= TIdDNSResolver.Create(nil);
try
  DNS.Host := '8.8.8.8'; // IP des DNS-Servers (8.8.8.8 ist der Google public DNS Server)
  DNS.WaitingTime := 5000;
  DNS.QueryType := [qtA];
  try
    DNS.Resolve('fritzbox.domain.com');  // DynDNS Name
  except
    on E: Exception do
    begin
      WriteLn(E.Message);
    end;
  end;
  for X:= 0 to DNS.QueryResult.Count-1 do
  begin
    if DNS.QueryResult[X] is TARecord then
      WriteLn(TARecord(DNS.QueryResult[X]).IPAddress);
  end;
finally
  DNS.Free;
end;

Die IP des DNS-Servers (Host) sollte am besten die vom ISP erhaltene sein. Die IP der Fritzbox würde hier auch gehen, da dieser dann den vom ISP erhalten DNS Servers abfragt.