Hostname zu IP Adresse (Netzwerk)

[user0815]

Funktioniert nicht...

CMD -> nslookup liefert mir ja den DNS Server im Netzwerk.
Diese DNS-IP übergebe ich dann zusammen mit einem Hostnamen aus dem lokalen Netzwerk an:

Delphi-Quellcode:

function DNSLookupIPv4(const ADNSServer, ADomain: string): string;
var
  I: Integer;
  DNSResolver: TIdDNSResolver;
begin
  Result := '';
  DNSResolver := TIdDNSResolver.Create;
  try
    DNSResolver.Host := ADNSServer;
    DNSResolver.QueryType := [qtA];
    DNSResolver.Resolve(ADomain);
    for I := 0 to DNSResolver.QueryResult.Count - 1 do
      if DNSResolver.QueryResult[I].RecType = qtA then
      begin
        Result := (DNSResolver.QueryResult[I] as TARecord).IPAddress;
        Break;
      end;
  finally
    DNSResolver.Free;
  end;
end;

Quelle: DNSLookupIPv4

Daraufhin erhalte ich die Fehlermeldung: "Der DNS-Server meldet einen Fehler beim Abfrage-Server."

Manuell in die Windows Eingabeaufforderung eingegeben funktioniert es:

Zitat:

c:\>nslookup Hostname
Server: xxx.yyy.local
Address: 192.168.109.74

Name: Hostname.yyy.local
Address: 192.168.109.138