ACESSAR PASTA COM PERMISSOES

HIDDEN 18/08/2009 13:27:25
#320146
Alguém poderia me auxiliar em uma rotina: acessar uma pasta específica em um computador da rede, com permissões de usuário e senha. Por exemplo, a pasta c:MeuProgramaDados no Winodws Server 2003 está compartilhada com um usuario chamado Fulano e com a senha 123 (este usuário existe na máquina que irei acessar).

Tem como eu passar esses parametros e acessas os arquivos da pasta, via codigo VB6?

Continuarei pesquisando. Caso alguém tenha a solução, por favro, compartilhe. Se eu descobrir antes, posto aqui.
MAXCIM 18/08/2009 17:18:52
#320168
encontrei esse código na net. pra acessar pasta compartilhada na rede com senha. fiz os testes e funciona perfeitamente... porem apenas no Windows 7 e no Vista.
ja no XP não consegui fazer funcionar...

http://www.codelines.com/portugues0/clsconnx.htm

segue link, se tiver ideia de como rodar isso no XP
HIDDEN 18/08/2009 19:08:42
#320175
Citação:

MAXCIM escreveu:
encontrei esse código na net. pra acessar pasta compartilhada na rede com senha. fiz os testes e funciona perfeitamente... porem apenas no Windows 7 e no Vista.
ja no XP não consegui fazer funcionar...

http://www.codelines.com/portugues0/clsconnx.htm

segue link, se tiver ideia de como rodar isso no XP



Eu encontrei um código similar e consegui implementar.

http://vbnet.mvps.org/index.html?code/network/wnetaddconnection2.htm

Mas ainda farei alguns ajustes para publicar. Porém eu não sabia dessa limitação com o Windows XP. As duas máquinas que uso para desenvolver estão com Vista e Seven. Bem, vou testar num XP. Mas alhieio a isso, ocorre algo com a função que não consigo entender. Se eu passar como parâmetro o nome do servidor, ela retorna &h0 (conectou com sucesso). Porém, se eu utilizar o IP ele retorna um numero diferente de &h0 (erro), que não consta na tabela de erros. Veja:

Function gbFc_VerificarCompartilhamento() As Boolean
         Dim NETR As NETRESOURCE
         With NETR
             .dwScope = RESOURCE_GLOBALNET
             .dwType = RESOURCETYPE_DISK
             .dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
             .dwUsage = RESOURCEUSAGE_CONNECTABLE
             .lpRemoteName = [Ô]\192.168.254.2Neocorp[Ô]
             .lpLocalName = vbNullString
             .lpProvider = vbNullString
         End With
         errInfo = WNetAddConnection2(NETR, [Ô]senha123[Ô], [Ô]Administrador[Ô], CONNECT_UPDATE_PROFILE)
End Function

Note que uso 
.lpRemoteName = [Ô]\192.168.254.2Neocorp[Ô]
. Não da certo. Tenho que utilizar 
.lpRemoteName = [Ô]\Neocorp-Srv1Neocorp[Ô]
onde Neocorp-Srv1 é o nome do servidor.

Bem, ainda descubro.
HIDDEN 18/08/2009 19:44:49
#320179
Um bug [Ô]comeu[Ô] as barras:

.lpRemoteName = [Ô]192.168.254.2Neocorp[Ô]. Não da certo. Tenho que utilizar .lpRemoteName = [Ô]Neocorp-Srv1Neocorp[Ô]
WEBMASTER 19/08/2009 10:18:04
#320224
Valeira apena o envio de uma dica detalhada sobre este processo.
WEBMASTER 19/08/2009 23:33:14
#320364
So para testar, acabei de ajustar o site para aceitar as barras invertidas...
Vamos ver:

.lpRemoteName = [Ô]\\192.168.254.2\Neocorp[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar