strComputer = "." Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")   For Each objclass in objWMIService.SubclassesOf()     intCounter=0     If Left(objClass.Path_.Class,5) = "Win32" Then         For Each Qualifier in objClass.Qualifiers_             If UCase(Trim(Qualifier.Name)) = "ASSOCIATION" Then                 intCounter = […]