Jak číst opožděné vlastnosti pomocí rozhraní WMI

Článek
04/04/2023

Pokud chcete číst opožděnou vlastnost z objektu Configuration Manager vráceného v dotazu, získáte instanci objektu, která následně načte všechny vlastnosti opožděného objektu od poskytovatele serveru SMS.

Poznámka

Pokud znáte úplnou cestu k objektu WMI, volání SWbemServices metody třídy Get vrátí objekt WMI spolu s všemi opožděnými vlastnostmi. Další informace najdete v tématu Čtení objektu Configuration Manager pomocí rozhraní WMI.

Další informace o opožděných vlastnostech najdete v tématu Configuration Manager Opožděné vlastnosti.

Čtení opožděných vlastností

Nastavte připojení k poskytovateli serveru SMS. Další informace najdete v tématu Připojení k poskytovateli serveru SMS v Configuration Manager pomocí rozhraní WMI.
Pomocí objektu SWbemServices, který získáte z kroku 1, použijte objekt ExecQuery k dotazování Configuration Manager objektů.
Iterujte výsledky dotazu.
Pomocí objektu SWbemServices , který získáte z kroku 1, volejte Get a získejte objekt SWbemObject pro každý dotazovaný objekt, ze kterého chcete získat opožděné vlastnosti.

Příklad

Následující příklad kódu jazyka VBScript se dotazuje na všechny objekty SMS_Collection a pak zobrazí názvy pravidel získané z CollectionRules vlastnosti lazy.

Informace o volání ukázkového kódu najdete v tématu Volání Configuration Manager fragmentů kódu.

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

Tato ukázková metoda má následující parametry:

Parametr	Typ	Popis
`connection`	- `SWbemServices`	Platné připojení k poskytovateli serveru SMS.

Kompilace kódu

Viz taky

Sdílet prostřednictvím