Список wmi-классов

strComputer = "."
nSpace = "\root\cimv2"

Set objSWbemServices = _
    GetObject("winmgmts:\\" & strComputer & nSpace)
Set colClasses = objSWbemServices.SubclassesOf()

For Each objClass In colClasses
    Wscript.Echo objClass.Path_.Path
Next