ActiveDelphi

mestrehurricane

PRECISO MAPEAR VIA DELPHI 12 COMPUTADORES QUE ESTAO NA MINHA REDE COMO SERIA ISTO VIA CODIGO OU PELO MENOS LOCALIZA-LOS NA REDE

snakeep · Enviada: Seg Dez 22, 2008 8:08 pm Assunto:

Olá amigo,

nos MS-DOS o comando correspondente para se mapear uma rede é:

mestrehurricane · Enviada: Seg Dez 22, 2008 9:02 pm Assunto:

mas neste caso eu teria de informar o ip das maquinas um a um ou este comando somente localizaria todos pcs na rede.e se o ip informado estiver errado acusa erro ou continua executando

snakeep · Enviada: Seg Dez 22, 2008 9:53 pm Assunto:

você teria que informar o IP ou HOSTNAME dos computadores um a um...

se o IP estiver errado, ele acusa erro e não mapea a unidade...
_________________
<<< Snakeep - Afonso <<<

O Mundo só é belo por que é uma bola....se fossem duas, seria um saco.

mestrehurricane · Enviada: Seg Dez 22, 2008 10:43 pm Assunto:

tem coomo informar todos ips e ele checa tudo ou so da um a um

johnny-walker · Enviada: Ter Dez 23, 2008 12:47 am Assunto:

Amigo pesquise por:
(WNetOpenEnum WNetEnumResource XP) no google

eu até tenho uns demos aqui mas nao está funcionando no xp...

http://www.swissdelphicenter.ch/torry/showcode.php?id=391
http://forum.devmedia.com.br/viewtopic.php?p=89461&sid=8e2e8815eb8beca2198538f56c71484b
http://www.upschool.com.cn/edu/1302/2005/108/10du274100_1.shtml

bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

mestrehurricane · Enviada: Ter Dez 23, 2008 8:28 am Assunto:

Amigo vou pesquisar . O Problema dos demos são isso nunca funcional de ser por isso que chamam demo deve ser do demonio. rsrsrws

mestrehurricane · Enviada: Ter Dez 23, 2008 9:05 am Assunto:

Localizar Computadores da Rede

//Primeiro eu declaro a procedure abaixo:

procedure GetComputers(Workgroup : String;Retorno:TStrings);

Var

EnumHandle : THandle;

WorkgroupRS : TNetResource;

Buf : Array[1..500] of TNetResource;

BufSize : cardinal;

Entries : CARDINAL;

Result : dword;

begin

Retorno.Clear;

Workgroup := Workgroup + #0;

FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);

With WorkgroupRS do begin

dwScope := 2;

dwType := 3;

dwDisplayType := 1;

dwUsage := 2;

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 begin

Retorno.Add(StrPas(Buf[1].lpRemoteName));

end;

Until (Entries <> 1) or (Result <> NO_ERROR);

WNetCloseEnum(EnumHandle);

end; { Find All computers }

//===================

//Exemplo de uso:

GetComputers(MSHOME,Memo1.Lines);

gALAERA O CODIGO E ESTE ONDE TA MSHOME COLOCA O NOME DO DOMINIO OU GRUPO DE TRABALHO MAS VC TEM QUE TER O PRIVILEGIO PARA PODER LISTAR OS PCS. VLEU GALERA.