Unidades de disco

[xavi]

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] Expandir



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