Connaitre le nombre de correctifs Microsoft installés sur une machine distante

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 132 fois - Téléchargée 9 fois

Contenu du snippet

Function FixEngineering(ByVal sComputerName As String) As Integer 
    Dim i As Integer 
     
    On Local Error Resume Next 
    Dim WMI_Obj2 As Object, WMI_Obj2Props As Object, ObjClsItem2 As Object 
    Set WMI_Obj2 = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2") 
    Set WMI_Obj2Props = WMI_Obj2.ExecQuery("SELECT * FROM Win32_QuickFixEngineering", , 48) 
    For Each ObjClsItem2 In WMI_Obj2Props 
        If InStr(1, ObjClsItem2.Description, "Security") Then 
            i = i + 1 
        End If 
    Next ObjClsItem2 
    FixEngineering = i 
    Set ObjClsItem2 = Nothing 
    Set WMI_Obj2Props = Nothing 
    Set WMI_Obj2 = Nothing 
End Function 

Compatibilité : VBA

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.