Función para mapear unidades de red en Visual Basic 6 (VB6)


Función de Visual Basic 6 para mapeo de unidades de red (será necesario sustituir las cadenas “usuario_mapeo” y “pwd_usuario_mapeo” por el nombre de usuario y la contraseña que queramos utilizar para el mapeo, o bien añadirlos como parámetros a la llamada de la función) :

Public Function fMapearUnidadDeRed(pLetraUnidad As String, pRutaMapear As String) As Boolean

‘ Mapea una ruta (pRutaMapear) en la Unidad especificada por pLetraUnidad.
‘ Manel Beltrán (beltrixx) 2006

Dim fs As New Scripting.FileSystemObject
Dim bRetorno As Boolean
”Dim ntwork As New WshNetwork
Dim ntwork As Object
Dim msg As String
Dim iResp As Integer

bRetorno = True

Set ntwork = CreateObject(“WScript.Network”)

If InStr(pLetraUnidad, “:”) = 0 Then
pLetraUnidad = pLetraUnidad & “:”
End If

On Error GoTo error_mapeo

If fs.DriveExists(pLetraUnidad) Then
‘ El mapeo ya existe :
iResp = MsgBox(“El mapeo (” & pLetraUnidad & “) ya existe. ¿Desea utilizar el existente?”, vbYesNo)
If iResp = vbYes Then
bRetorno = True
Else
ntwork.RemoveNetworkDrive pLetraUnidad
ntwork.MapNetworkDrive pLetraUnidad, pRutaMapear, “True”, “usuario_mapeo”, “pwd_usuario_mapeo”
End If
Else
‘ El mapeo no existe previamente : lo intento realizar.
ntwork.RemoveNetworkDrive pLetraUnidad
ntwork.MapNetworkDrive pLetraUnidad, pRutaMapear, “True”, “usuario_mapeo”, “pwd_usuario_mapeo”
End If

fMapearUnidadDeRed = bRetorno
Exit Function

error_mapeo:

msg = “Hubo el siguiente problema mapeando la unidad de red (” & pLetraUnidad & “) :” & vbCrLf
msg = msg & Err.Description & vbCrLf
msg = msg & “Es posible que si ya existe, se esté utilizando actualmente.”
MsgBox msg, vbCritical
Err.Clear
bRetorno = False
fMapearUnidadDeRed = bRetorno

End Function

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s