Jump to content
Fivewin Brasil

Rede


netspeed

Recommended Posts

// Usando Alguns Serviços do Windows Para NetWork - Rede

// Adaptação: João Santos - karinhannah@ubbi.com.br

// Todos os Direitos Reservados.

// Não Retire o Nome do Programador( By Vagner Wirts )

#Include "FiveWin.Ch"

#define TYPE_DRIVE 1

#define TYPE_FILE 2

#define TYPE_PRINTER 3

#define TYPE_COMM 4

//----------------------------------------------------------------------------//

Function Checa_Rede()

Local N := 1

Local cError

SET _3DLOOK ON

WNetConnect() // Conectando...

MsgInfo( WNetGetUser(), "Informação" )

// Troque o Valor da Unidade Para o Seu Gosto !

MsgInfo( WNetBrowseDialog( 0, TYPE_PRINTER, "e:\" ), "Informação" )

MsgInfo( NetName(), "Nome da Rede" )

MsgInfo( WNetError(), "Retorno de Erro!" )

WNetDisconnect() // Desconectando...

Return Nil

//----------------------------------------------------------------------------//

// Caro Amigo, veja se ajuda... Feliz ano novo! Abraços.

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

Link to comment
Share on other sites

Prezado João

Obrigado pela resposta. Estes comandos de certa forma irão me ajudar, mas o principal não tem nesta função (pode ser que tbm não tenha jeito) que é um comando que retorne com todos os micros que estão conectados a rede ou ao grupo de trabalho, e não só apenas o micro que está executando o Sistema.

Obrigado.

Feliz Ano Novo para vc tbm!

Ederson

Link to comment
Share on other sites

Olá Ederson,

voce pode executar o NET VIEW com o RUN do FIVEWIN com os parametros ' > nome_da_variavel '

por exemplo:

net view > cLista

todo o resultado nao será exibido em tela, mas ficará armazenado na variavel cLista. Depois, basta ver a melhor forma de apresentar o conteudo de cLista na tela.

Abraços

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...