Cómo leer propiedades diferidas mediante WMI

Artículo
04/04/2023

Para leer una propiedad diferida de un objeto Configuration Manager devuelto en una consulta, se obtiene la instancia del objeto, que a su vez recupera las propiedades de objetos diferidos del proveedor de SMS.

Nota:

Si conoce la ruta de acceso completa al objeto WMI, una llamada al SWbemServices método de clase Get devolverá el objeto WMI junto con las propiedades diferidas. Para obtener más información, vea Cómo leer un objeto Configuration Manager mediante WMI.

Para obtener más información sobre las propiedades diferidas, vea Configuration Manager Propiedades diferidas.

Para leer propiedades diferidas

Configure una conexión con el proveedor de SMS. Para obtener más información, vea Cómo conectarse a un proveedor de SMS en Configuration Manager mediante WMI.
Con el objeto SWbemServices que obtiene del paso uno, use el objeto ExecQuery para consultar Configuration Manager objetos.
Recorre en iteración los resultados de la consulta.
Con el SWbemServices objeto que obtiene del paso uno, llame a Get para obtener el objeto SWbemObject para cada objeto consultado del que desea obtener propiedades diferidas.

Ejemplo

En el siguiente ejemplo de código VBScript se consultan todos los objetos SMS_Collection y, a continuación, se muestran los nombres de regla obtenidos de la CollectionRules propiedad diferida.

Para obtener información sobre cómo llamar al código de ejemplo, vea Llamar a fragmentos de código de Configuration Manager.

Sub ReadLazyProperty(connection)  

    Dim collection  
    Dim collections  
    Dim collectionLazy  
    Dim i  

    ' Get all collections.  
    Set collections = _  
        connection.ExecQuery("Select * From SMS_Collection")  

    For Each collection in collections  

        Wscript.Echo Collection.Name   

        ' Get the collection object.  
        Set collectionLazy = connection.Get("SMS_Collection.CollectionID='" + collection.CollectionID + "'")  

        ' Display the rule names that are in the lazy property CollectionRules.  
        If IsNull(collectionLazy.CollectionRules) Then  
            Wscript.Echo "No rules"  
        Else   
            For i = 0 To UBound(collectionLazy.CollectionRules)  
                WScript.Echo "Rule " + collectionLazy.CollectionRules(i).RuleName  
            Next  
       End If       
    Next          

End Sub

Este método de ejemplo tiene los parámetros siguientes:

Parámetro	Tipo	Descripción
`connection`	- `SWbemServices`	Una conexión válida al proveedor de SMS.

Compilar el código

Consulta también