Ver la Versión Completa : Obtener IP a partir de netbios (nombre windows)
aledieb
20-10-2006, 16:38:15
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
20-10-2006, 17:13:19
Probaste usando la función gethostbyname, si no recuerdo mal, poniendo el nombre del equipo devuelve su ip. Al menos a mi me funciona:
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
20-10-2006, 18:13:43
Gracias voy a probar y te cuento.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.