Bonjour,

J'ai cherché un code source sur ce forum pour faire ceci mais je n'ai rien trouvé...

En fait, je dispose d'une liste d'ip réseau (locale) 192.168.x.x et je les scanne... Seulement, j'aimerai faire apparaitre aussi leur nom Netbios (COMPUTER1, COMPUTER2...etc etc

Avez vous un source (ou alors Ze Technique) qui resolve le nom de l'ordi a partir de son ip ???

Merci

Manu

J'ai bien une solution sans composant, mais je sais pas si elle vas beaucoup te plaire:

la commande:
ping -a IP > fichier

et pour executer une commande depuis Delphi:
http://delphi.developpez.com/faq/?page=interexecution#executerapplication

Loda

PS:  y a surement des composant qui le font, mais je ne les connait pas.

Même en tapant en commande dos avec le -a , cela ne resout pas les noms :-(

Je vais chercher du côté des composants...
Merci

Si qqlun à la soluce ;-)....

Manu

ça devrait. t'as peut-être un firewall ou truc comme ça.

Loda

Bonjour,
Si tu as la possibilité de l'utiliser, essayes avec le WMI,
Par défaut c'est installer sur les postes en XP.
Sinon tu peux l'installer sur les postes en 2000 et NT.
Tu pourras accéder à pas mal d'info du réseau..

Dom

Use IPAddrToName function. This function get host information by using GetHostByAddr function.

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<&gtnil then
  begin
    Rresult:=StrPas(Hostent^.h_name)
  end
  else
  begin
    Result:='';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IPAddrToName(Edit1.Text);
end;

Je testerai ca demain...
Je vous dirais si ca fonctionne...

Merci
M.