Obter o nome de todas as m�quinas da rede

Question

Ol�.Como obter o NOME de todas as maquinas de uma rede?Obrigado....

Massuda · Answer

Teve um t�pico recente sobre isso...//forum.clubedelphi.net/viewtopic.php?t=83096...se quiser outras implementa��es,  :arrow: [url=//forum.clubedelphi.net/search.php]pesquise[/url] o f�rum por WNetEnumResource....

Marcelo · Answer

Caro amigo.A unit listada nesse t�pico, n�o resolve meu problema, pois quero o NOME das maquinas, n�o o nome da REDE. Aproveitando a ocasiao, respondo a d�vida do autor do topico, informando como deve proceder para utilizar a unit:[code:1:3cf610586b]  FindComputers;  Memo1.Lines := Computers;[/code:1:3cf610586b]Como disse, preciso do NOME das maquinas da rede.Alguem pode me ajudar?...

Marcelo · Answer

Eu criei um m�todo que obtem o nome da maquina, mas o m�todos faz isso apenas com parti��es mapeadas na maquina local.

procedure obtemComputadoresMapeados( mapeados: TStrings );
function getTamanho( txt: String ): Word;
var
 i: Word;
begin
  for i := 3 to Length( txt ) do  // inicia no 3, para eliminar as \\ iniciais
    if txt[i] = �\� then
      Break;
  Result := i-3;  // retorna -3, para pegar apenas o nome do computador
end;
var
 i: Integer;
 caminho, drive: String;
 tamanho: Cardinal;
begin
  SetLength( caminho, 255 );
  tamanho := 255;
  mapeados.Clear;
  for i:= 0 to 25 do begin
    drive:= chr( ord(�A�) + i ) + �:�;
    if WNetGetConnection( pchar( drive ), pchar( caminho ), tamanho ) = NO_ERROR then
      mapeados.Add(Copy(caminho, 3, getTamanho(caminho)));
  end;
end;

Esse m�todo pode ser utilizado dessa forma:

  obtemComputadoresMapeados(Memo1.Lines);

Mas o que preciso � obter o NOME das maquinas que est�o na rede, independente de que estejam ou n�o com alguma parti��o mapeada.

F�rum Obter o nome de todas as m�quinas da rede #335019