my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or warn "WMI connection failed.\n";
   my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_QuickFixEngineering", "WQL",
                  wbemFlagReturnImmediately | wbemFlagForwardOnly);