Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer()
Set objSWbemObject = objSWbemServices.Get("win32_service")
Set objSWbemQualifierSet = objSWbemObject.Properties_.Item("CreationClassName").Qualifiers_
strQualifier = "该类的限定符的个数：" & objSWbemQualifierSet.Count & vbCrLf & vbCrLf
For Each objSWbemQualifier In objSWbemQualifierSet
    strQualifier = strQualifier & objSWbemQualifier.Name & vbCrLf
Next
Msgbox strQualifier
Msgbox "cim_key限定符的值：" & objSWbemQualifierSet.Item("cim_key").Value
复制代码