ja testei e funcionou legal....
blz valeu pela dica!!
--- Em delphi-br@yahoogrupos.com.br, Rodrigo Marcinhuk
<[EMAIL PROTECTED]> escreveu
>
> Isso procura e lista os computadores em listboxes.
>
> unit Procura_Computadores;
> interface
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
> StdCtrls;
> type
> TForm1 = class(TForm)
> Button1: TButton;
> ListBox1: TListBox;
> Label1: TLabel;
> ListBox2: TListBox;
> Label2: TLabel;
> ListBox3: TListBox;
> Label3: TLabel;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
> var
> Form1: TForm1;
> implementation
> {$R *.DFM}
> procedure FindComputers(Workgroup: string; aResList: TStrings);
> var
> eNumHandle : THandle;
> WorkgroupRS : TNetResource;
> Buf : array[1..500] of TNetResource;
> BufSize : DWORD;
> Entries : DWORD;
> Result : integer;
> begin
> if not Assigned(aResList) then
> Exit;
> aResList.Clear;
> WorkGroup := Workgroup + #0;
> FillChar(WorkGroupRS, SizeOf(WorkGroupRS), 0);
> with WorkgroupRS do
> begin
> dwScope := 2;
> dwType := 3;
> dwDisplayType := 1;
> dwUsage := 1;
> lpRemoteName := @Workgroup[1];
> end;
> WNetOpenEnum(Resource_GlobalNet, ResourceType_Any, 0, @WorkgroupRS,
> ENumHandle);
> repeat
> Entries := 1;
> BufSize := SizeOf(Buf);
> Result := WNetENumResource(ENumHandle, Entries, @Buf, BufSize);
> if (result = NO_Error) and (Entries = 1) then
> aResList.Add(StrPas(Buf[1].lpRemoteName));
> until (Entries <> 1) or (Result <> NO_Error);
> WNetCloseENum(ENumHandle);
> end;
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> FindComputers('Dominio1',ListBox1.Items);
> FindComputers('Dminio2',ListBox2.Items);
> FindComputers('Workgroup1',ListBox3.Items);
> end;
> end.
>
> alexandrerobson <[EMAIL PROTECTED]> escreveu:
> Ola galera,
> como faço para listar os computadores do meu dominio Windows e coloca-
> los por exemplo num listbox.
> tambem como faço para pingar os computadores e saber quais respondem
> via delphi?
> Ja deu pra perceber, q estou montando um pequeno gerenciador da minha
> rede, e ele tera mais funçoes alem destas. se alguem tiver algo meio
> pronto aceito sugestoes, estes seriam os primeiros passos.
>
> antecipadamente agradeço
>
> robson
>
>
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.