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