Mapear unidades de red y validar contraseñas de usuario en el servidor

[Carlojas]

Ya consegui parte de lo que necesito utilizando la referencia a Windows Script Host Object Model , mapea correctamente las unidades de red y ademas verifica que el usuario y el password sean correctos, ahora lo que deseo hacer es mediante este control darle la opción al usuario de cambiar su password, he estado mirando sus propiedades pero no tiene nada al respecto si tienen algún conocimiento mas al respecto se los agradecería de antemano, esta es la función que utilizo para mapear las unidades de red

Código:

Function Mapear_Unidad_De_Red(LocalName As String, RemoteName As String, Optional UserName As Variant, Optional Password As Variant) As Boolean
'MANEJADOR DE ERRORES PARA LA FUNCIÓN
On Error GoTo ErrFunction
Dim obj_Wsh As WshNetwork
On Local Error Resume Next
'NUEVO OBJETO WshNetwork
Set obj_Wsh = New WshNetwork
'VERIFICAR LOS PARAMETROS DE USUARIO Y CONTRASEÑA
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 "Nombre de usuario o password incorrecto", 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

Saludos.