Comment résoudre des noms NETBIOS ?

Version imprimable

09/02/2005, 20h47
dj_lil

Comment résoudre des noms NETBIOS ?

Bonsoir !!

J'ai un p'tit problème qui je l'espère vous paraitra trivial.
Je cherche à récupérer un nom d'ordi à partir d'une adresse IP (style NBTSTAT sous DOS).
J'ai pas mal cherché, mais j'ai pas trouvé comment on fait.

Si quelqu'un a une idée, je le remercie d'avance de bien vouloir m'éclairer...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
function IPAddrToName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));
  HostEnt:= GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt<>nil then
  begin
    Result:=StrPas(Hostent^.h_name)
  end
  else
  begin
    Result:='';
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IPAddrToName(Edit1.Text);
end;

*Déclarer l'unité Winsock dans la partie Uses

10/02/2005, 15h23
fredtheman

Sous Windows, GetHostByAddr() fonctionne aussi si aucun DNS n'a été installé sur le LAN pour résoudre les adresses locales, c.a.d. en faisant un broadcast avant de retourner une erreur?

Fred.