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?
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


0