Connaitre le nombre de correctifs Microsoft installés sur une machine distante
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 446 fois - Téléchargée 11 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
- Connaitre le nombre de correctifs Microsoft installés sur une machine distante
- Générateur de nombre aléatoire ✓ - Forum PHP
- Microsoft scripting runtime ✓ - Forum Visual Basic
- Sql compter le nombre de ligne ✓ - Forum SQL
- Nombre de semaine dans une année - Forum C / C++ / C++.NET
- Générateur de nombre ✓ - Forum C / C++ / C++.NET
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.