The swbemobject has a properties_ property

Set objClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2:" & strClassName

For Each objClassProperty in objClass.Properties_
    Debug.print objClassProperty.Name
Next
there is also a Methods_ property :-)