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

294 - Listar las unidades de red con Wmi

Ejemplo que utiliza Windows Management Instrumentation para listar en las unidades de red que hay en el equipo

El ejemplo lista en un control Listview las unidades de red establecidas, indicando el nombre de la unidad, el tamaño o capacidad y el espacio libre de la misma.

vista del formulario que muestra las unidades de red existentes en el sistema

Controles

Para el ejemplo colocar un control Listview
y un CommandButton

Código fuente en el formulario

Option Explicit 'Constantes Const Kb As Double = 1024 Const Mb As Double = 1024 * Kb Const Gb As Double = 1024 * Mb Const Tb As Double = 1024 * Gb Private Sub Command1_Click() On Error Resume Next ' Variable para la colección Dim c_disco As Variant Dim o_Wmi As Object 'Para acceder a wmi ' Variable para hacer referencia a la unidad de red Dim Unidad_red As Object Dim item As ListItem ' para el listview Set o_Wmi = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2") ListView1.ListItems.Clear Set c_disco = o_Wmi.ExecQuery("Select * from Win32_MappedLogicalDisk") ' Recorre las unidades de red en la colección ..si es que hay For Each Unidad_red In c_disco ' Agrega los datos al list Set item = ListView1.ListItems.Add(, , Unidad_red.DeviceID) item.SubItems(1) = Unidad_red.Name ' nombre item.SubItems(2) = Size(Unidad_red.FreeSpace) ' espacio libre item.SubItems(3) = Size(Unidad_red.Size) ' capcidad de la unidad Next End Sub 'Función que formatea los bytes ( Kilobytes, megabytes gigabytes ) _ ********************************************************************* Private Function Size(ByVal n_bytes As Double) As String If n_bytes < Kb Then Size = Format$(n_bytes) & " bytes" ElseIf n_bytes < Mb Then Size = Format$(n_bytes / Kb, "0.00") & " KB" ElseIf n_bytes < Gb Then Size = Format$(n_bytes / Mb, "0.00") & " MB" Else Size = Format$(n_bytes / Gb, "0.00") & " GB" End If End Function Private Sub Form_Load() ' Agrega Columnas al control Listview With ListView1 .ColumnHeaders.Add , , " ID ", 500 .ColumnHeaders.Add , , " Nombre ", 500 .ColumnHeaders.Add , , " Espacio libre ", 1500 .ColumnHeaders.Add , , " Capacidad de la unidad ", 2200 .View = lvwReport .GridLines = True End With Command1.Caption = " Obtener unidades de Red " Me.Caption = " Wmi - Unidades de red " End Sub

Recursos Visual basic 6.0 - enlaces relacionados

Ejemplos de wmi y vb 6.0

Recursos visual basic.NET - enlaces relacionados

Obtener tempertatura del disco en vb.net

Buscar en Recursos vb