ExisteUnidadRed.vbs

'**************************************************************************************************
'* Comprueba si existe la unidad de red pasada como parametro
'* uso: If ExisteUnidadRed ("F") Then
'* ESH 23/09/03 19:55
'**************************************************************************************************

Public Function ExisteUnidadRed (strUnidad)
Dim WshNetwork, _
        objUnidades, _
        i

strUnidad=strUnidad & ":"
ExisteUnidadRed = False ' por defecto Falso

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objUnidades = WshNetwork.EnumNetworkDrives

For i = 0 to objUnidades.Count -1
        ' compruebo si la unidad pasada como parametro existe, si es así devuelvo Verdadero, sino Falso
        If objUnidades.Item(i)= strUnidad Then
                ExisteUnidadRed = True
        End if
Next

Set objUnidades = Nothing
Set WshNetwork = Nothing
End Function         ' ExisteUnidadRed