Autor Tema: Unidades de disco  (Leído 2102 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 204
Unidades de disco
« en: Abril 20, 2012, 12:30:16 am »
Palabras clave: WMI, averiguar, listar, unidades, disco
Autor: Búho
Extraído de: La web del Búho

Objetivo
Averiguar las unidades de disco de un PC mediante WMI

Código: [Seleccionar]

Sub algo()
Dim objs As Object
    Dim obj As Object
    Dim WMI As Object
    Dim strSN As String
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("CIM_MediaAccessDevice")
    For Each obj In objs
        Debug.Print "Caption....:" & obj.Caption
        Debug.Print "DeviceID...:" & obj.DeviceId
        Debug.Print "Descripcion:" & obj.Description
        Debug.Print String(79, "=")
    Next

End Sub