Visual Basic - Conectar a una unidad de red y deshabilitarla del explorador

Life is soft - evento anual de software empresarial
   
Vista:

Conectar a una unidad de red y deshabilitarla del explorador

Publicado por ML (5 intervenciones) el 15/07/2014 15:04:18
Tengo una aplicación en VB 6.0 y quiero poder conectarme a una unidad de red con un usuario y contraseña que no son con los que me logué al inicio de la sesión, ya que este tiene permisos sobre las carpetas y el primero no, pero al conectarme con este nuevo usuario me habilita la conexión en el explorador de window.

He probado usando la referencia a Windows Script Object Model pero en cuanto mapeo la unidad desde mi aplicación VB 6.0 en el explorador de windows también me la habilita.
¿Alguien conece la forma de acceder a unas carpetas de red desde una aplicación VB 6.0 y que no las habilite en el explorador de windows?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Function Mapear_Unidad_De_Red(LocalName As String, _
                                      RemoteName As String, _
                                      Optional UserName As Variant, _
                                      Optional Password As Variant) As Boolean
 
On Error GoTo ErrFunction
 
    Dim obj_Wsh As New WshNetwork
 
    On Local Error Resume Next
    ' Nuevo objeto WshNetwork
 
    Set WshNetwork = Nothing
    Set obj_Wsh = New WshNetwork
 
    ' Verifica los parámetros de usuario y password
    If Not (IsMissing(UserName) And _
            IsMissing(Password)) And _
            txtUsuario <> vbNullString And _
            txtPassword <> vbNullString Then
       obj_Wsh.MapNetworkDrive LocalName, RemoteName, , UserName, Password
 
    Else
       obj_Wsh.MapNetworkDrive LocalName, RemoteName
 
    End If
 
 
    Select Case Err.Number
        Case 0 ' No hubo error
            Mapear_Unidad_De_Red = True
 
            'Elimina la referencia
            Set obj_Wsh = Nothing
 
            Exit Function
        Case -2147024829
            MsgBox " El recurso de red no existe ", vbCritical
        Case -2147024811
            MsgBox " El recurso de red ya está mapeado ", vbCritical
        Case -2147022646
            MsgBox " error: Verifique si el nombre de " & _
                   "la unidad es correcto ", vbCritical
        Case Else
            MsgBox Err.Description, vbCritical
    End Select
 
        Mapear_Unidad_De_Red = False
        'Elimina la referencia
        Set obj_Wsh = Nothing
 
Exit Function
ErrFunction:
 
    MsgBox Err.Description
 
    'Elimina la referencia
    Set obj_Wsh = Nothing
 
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Programa de gestión
- ProgressCircle
- Libreria

Conectar a una unidad de red y deshabilitarla del explorador

Publicado por Pico (114 intervenciones) el 15/07/2014 19:36:29
Lo que hace es heredar un usuario los permisos del otro, algo que se puede deshabilitar en las propiedades de un usuario. O eso, o lanzar la aplicación no como el usuario con el que te has loggeado, sino con el que tiene que funcionar esa aplicación.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Conectar a una unidad de red y deshabilitarla del explorador

Publicado por ml (5 intervenciones) el 16/07/2014 08:06:40
Muchas gracias, lo probaré
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Conectar a una unidad de red y deshabilitarla del explorador

Publicado por ML (5 intervenciones) el 16/07/2014 09:41:18
Lo acabo de probar ejecutándolo con otro usuario y funciona perfectamente.
La solución es mucho más sencilla de lo que yo estaba intentando.

Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar