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