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