IP-Adresse über NetBios-Name ermitteln

[Changer]

Hallo Zusammen,

hab schon und bei Google gesucht aber nix passendes gefunden was meinem Problem nahe kommt.
Ich möchte über den Netbios-Namen eines Rechners die IP-Adresse ermitteln. Fall der Rechner online ist soll die IP des ersten Interfaces geliefert werden, falls er offline ist soll die IP unbekannt gesetzt werden.
Habe schon versucht mittels der ShellAPI einen Ping auszuführen und die ermittelten Werte einzulesen, aber da habe ich nicht richtig hin bekommen.
Da gibt es aber bestimmt noch einen eleganteren Wert oder?
Kann mir da jemand Hilfestellung zu geben??

Gruß
Changer

[Changer]

Habs doch schon selbst rausgefunden.
Poste mal meine Lösung hier falls noch wer das Problem hat.
Vielleicht weiß ja noch wer eine bessere Lösung und posted sie

Delphi-Quellcode:

var ip : string;
    phoste : PHostEnt;
    WSAData : TWSADATA;

begin
ip := 'netbiosname';
if WSAStartup($0101, WSADATA) = 0 then begin
   phoste := GetHostByName(pchar(ip));
   ip := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
   WSACleanup;
end;
ShowMessage(ip);
end;

Gruß
Changer