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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

305 - Enumerar unidades de red con Windows Script Host

Ejemplo que utiliza Wsh para enumerar y listar las unidades de red del sistema utilizando el método EnumNetworkDrives de la clase WshNetwork

Para el ejemplo agregar la referencia windows Script Host Object Model para poder acceder a Windows Script Host

Nota: si se desea crear la referencia mediante automatización con CreateObject , utilizar la siguiente línea:

Set obj = WScript.CreateObject("WScript.Network")

Luego los pasos para enumerar las unidades de red es exactamente igual

Nota: En el momento de enumerar las uniades, dentro del bucle, el primer índice corresponde a la letra de la unidad, el indice siguiente será el Path o ruta de la unidad de red actual

Si solo se desea el path se puede indicar en el bucle los saltos, por ejemplo

For i = 1 To obj.EnumNetworkDrives.Count - 1 Step 2

Si solo se desea obtener las letras

For i = 0 To obj.EnumNetworkDrives.Count - 1 Step 2

Código fuente en el formulario

'*************************************************************************** '* Referencia Activex : Agregar la referencia a Windows Script Object Model '*************************************************************************** Private Sub Form_Load() Dim obj As WshNetwork ' Nuevo objeto WshNetwork Set obj = New WshNetwork Me.AutoRedraw = True 'Recorre las unidades de red For i = 0 To obj.EnumNetworkDrives.Count - 1 Step 1 'Imprime la letra de la unidad y el path en el formulario Me.Print obj.EnumNetworkDrives(i) Next 'Elimina la referencia Set obj = Nothing ' Nota : para usar el ejemplo sin indicar la referencia Windows Script Host _ Crear el objeto de la siguietne manera _ Set obj = WScript.CreateObject("WScript.Network") End Sub

Ejemplo para listar las unidades de red pero con el Api

Este otro código fuente , enumera las unidades de red usando la función del api WNetGetConnection

Formulario de ejemplo

vista del formulario para enumerar y listar las unidades de red del sistema

Colocar en el formulario un CommandButton, un control ListBox

Código fuente en el formulario

Option Explicit ' función api WNetGetConnection Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" ( _ ByVal lpszLocalName As String, _ ByVal lpszRemoteName As String, _ cbRemoteName As Long) As Long ' declaración de constantes Private Const NO_ERROR = 0 Private Const ERROR_BAD_DEVICE = 1200& Private Const ERROR_NOT_CONNECTED = 2250& Private Const ERROR_MORE_DATA = 234 Private Const ERROR_CONNECTION_UNAVAIL = 1201& Private Const ERROR_NO_NETWORK = 1222& Private Const ERROR_EXTENDED_ERROR = 1208& Private Const ERROR_NO_NET_OR_BAD_PATH = 1203& Private Sub Command1_Click() Dim i As Integer Dim ret As String Dim Msg As String List1.Clear ' recorre las unidades de red desde la C hasta la letra Z For i = Asc("C") To Asc("Z") ' Acá retorna El path ret = DriveLetterToUNC(Chr(i)) If Len(ret) Then ' agrega las uidades de red al control ListBox List1.AddItem "Unidad: " & Chr(i) & ": " & ret End If Next End Sub Private Function DriveLetterToUNC(ByVal DriveLetter As String) As String Dim nRet As Long Dim Drv As String Dim Dbg As String Dim Buffer As String Dim BufLen As Long Const MAX_PATH = 260 If Len(DriveLetter) Then ' massage input string and create buffer Drv = UCase(Left(DriveLetter, 1)) & ":" Buffer = Space(MAX_PATH) BufLen = Len(Buffer) ' attempt to get UNC info nRet = WNetGetConnection(Drv, Buffer, BufLen) If nRet = ERROR_MORE_DATA Then ' increase buffer and call again Buffer = Space(BufLen) nRet = WNetGetConnection(Drv, Buffer, BufLen) End If If nRet = NO_ERROR Then ' Le quita los espacios nulos y retorna el Path DriveLetterToUNC = Left(Buffer, InStr(Buffer, vbNullChar) - 1) End If End If End Function Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Command1.Caption = "Listar unidades" End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Listar unidades de red usando Wmi ( Windows management instrumentation )

Buscar en Recursos vb