Sección de códigos , trucos y ejemplos para visual basic

306 - Mapear y remover una unidad de red

Ejemplo que utiliza Wsh para mapear y eliminar una unidad de red

El siguiente código utiliza los métodos MapNetworkDrive y RemoveNetworkDrive de la clase WshNetwork de Windows Script Host.

Los parámetros principales de MapNetworkDrive para mapera la unidad

MapNetworkDrive ( NombreLocal, NombreRemoto, Usuario, Password )

Donde usuario y password son parámetros opcionales

El parámetro principal de RemoveNetworkDrive es el nombre de la unidad a remover.

Por ejemplo para mapear una unidad

obj_Wsh.MapNetworkDrive("Z:","\\Nombre_Maquina\Nombre_DelRecurso_Compartido")

Para eliminar la unidad anterior mapeada

obj_Wsh.RemoveNetworkDrive( "Z:")

Formulario de Ejemplo

Colocar en el form dos controles CommandButton y cuatro controles TextBox en el orden de la siguiente imagen ( txtNameLocal, txtNameRemoto, txtUsuario y txtPassword)

Vista del formulario para mapear y remover unidades de red

También agregar la referencia a Windows Script Host Object Model desde el menú referencias de vb

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Referencias : Agregar la referencia a Windows Script Object Model ' Controles : Dos CommandButton y cuatro TextBox: _ ( txtNameLocal, txtNameRemoto, txtUsuario y txtPassword ) '*************************************************************************** 'Función que mapea la unidad '---------------------------------------------- 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 WshNetwork On Local Error Resume Next ' Nuevo objeto WshNetwork 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 ' Botón para mapear Private Sub Command1_Click() Dim ret As Boolean ret = Mapear_Unidad_De_Red(txtNameLocal.Text, txtNameRemoto, _ txtUsuario, txtpassword) If ret Then MsgBox " Unidad de red mapeada ", vbInformation, _ " Mapear unidad de red" End If End Sub 'Función que remueve una unidad de red '---------------------------------------------- Function Remover_Unidad_De_Red(Nombre As String) As Boolean On Error GoTo ErrFunction Dim obj_Wsh As WshNetwork On Local Error Resume Next ' Nuevo objeto WshNetwork Set obj_Wsh = New WshNetwork 'Remueve la unidad obj_Wsh.RemoveNetworkDrive Nombre Select Case Err.Number Case 0 ' Ok Remover_Unidad_De_Red = True 'Elimina la referencia Set obj_Wsh = Nothing Exit Function Case -2147024829 MsgBox " El recurso de red no existe o no " & _ "se pudo acceder ", vbCritical Case -2147022646 MsgBox " error: Verifique si el nombre de " & _ "la unidad es correcto ", vbCritical Case Else MsgBox Err.Description, vbCritical End Select Remover_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 ' Botón que remueve la unidad Private Sub Command2_Click() Dim Nombre As String Dim ret As Boolean Nombre = InputBox(" Escriba el nombre de la unidad de red " & _ "a eliminar", " Remover unidad de red") If Nombre = vbNullString Then Exit Sub ret = Remover_Unidad_De_Red(Nombre) If ret Then MsgBox " Unidad removida", vbInformation End Sub 'Captions Private Sub Form_Load() Command1.Caption = " Mapear unidad de red " Command2.Caption = " Remover unidad de red " txtNameLocal.Text = "Por ejemplo > Y:" txtNameRemoto.Text = "\\Maquina\nombre del recurso" txtUsuario.Text = vbNullString txtpassword.Text = vbNullString End Sub

Recursos vb6 - Enlaces relacionados

Enumerar unidades de red con Wsh

Buscar en Recursos vb