Obtener IP a partir de netbios (nombre windows)

[aledieb]

Hola, no se si va en este foro, espero que si.

Necesito obtener la dirección IP de una máquina conociendo su nombre dentro de la red windows, alguien me puede tirar una punta.

Gracias

[[seoane]]

Probaste usando la función gethostbyname, si no recuerdo mal, poniendo el nombre del equipo devuelve su ip. Al menos a mi me funciona:

Código Delphi [-]
uses Winsock;

function GetIp(Host: string): string;
var
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    HostEnt:= gethostbyname(PChar(Host));
    if HostEnt <> nil then
      Result:= String(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));
    WSACleanup;
  end;
end;


// Ejemplo de uso
ShowMessage(GetIp('EQUIPO01'));

[aledieb]

Gracias voy a probar y te cuento.