El consumo de memoria de GetRef (recolección de basura) cambió con KB4525236

Experimentamos problemas de falta de memoria después de instalar KB4525236 en nuestros servidores Windows 2016 / Clientes Windows 10. Esta solución de seguridad parece haber cambiado en el momento en que se recolecta basura en la memoria cuando se llama a una función GetRef.

Pré KB4525236

Cada instancia creada en una función llamada GetRefse recogió basura tan pronto como la variable de instancia se estableció ennothing

Publicar KB4525236

Cada instancia creada en una función llamada a través GetRefpermanece en la memoria y se recolecta basura solo cuando se completa toda la función . Al crear instancias en un bucle, esto puede sumar rápidamente y conducir a una falta de memoria, especialmente en un proceso de 32 bits.

Preguntas

• no podemos encontrar nada relevante en línea, por lo que nos gustaría obtener la confirmación de otras personas que experimentan el mismo problema.
  EDITAR tachar eso: este es el mismo problema pero aún no tiene solución
  _{(error vbscript.dll class_terminate desde KB4524570 (12 de noviembre de 2019) Windows 10 1903)}
• si alguien puede verificar y conoce una solución viable, sería genial.

POC

El siguiente script que se ejecuta en un dispositivo con KB4525236 instalado muestra la diferencia en la recolección de basura cuando

• llamado directamente: la segunda instancia se crea solo después de que se destruye la primera instancia (este es nuestro comportamiento deseado)
• llamado GetRef: la segunda instancia se crea antes de que se destruya la primera instancia, por lo que hay dos instancias que usan memoria.

_{guardar como: KB4525236.vbs
ejecutar como: wscript KB4525236.vbs}

Dim Name, Log

Class IDummyInstance
  Dim FName
  Sub Class_Initialize
    FName = Name
    Log = Log & "Initialize " & FName & VbNewLine
  End Sub
  Sub Class_Terminate
    Log = Log & "Terminate " & FName & vbNewLine
  End Sub
End Class

Sub CreateDestroyTwoInstances
  Dim DummyInstance
  Name = "First Instance"
  Set DummyInstance = New IDummyInstance
  Set DummyInstance = Nothing
  Name = "Second Instance"
  Set DummyInstance = New IDummyInstance
  Set DummyInstance = Nothing
End Sub

Log = "(1) Direct Call :" & VbNewLine
Call CreateDestroyTwoInstances

Log = VbNewLine & Log & "(2) GetRef Call :" & vbNewLine
Set GetRefCall = GetRef ("CreateDestroyTwoInstances")
Call GetRefCall

MsgBox Log

Como no tengo una solución o una fuente oficial que explique el problema, estaba esperando que expirara la recompensa.

Se me ocurrió una solución desagradable que puede ayudar hasta que se solucione el error.

La solución alternativa es no utilizar ninguna variable local para contener instancias de objetos en procedimientos que podrían ejecutarse a través de GetRef .

En lugar de variables implícitas o explícitas, usar un objeto de diccionario local (o global si no hay recursividad) para contener instancias de objetos y llamarlas a través de ese diccionario funciona.

Sub CreateDestroyTwoInstances
  Dim Refs
  Set Refs = CreateObject("Scripting.Dictionary")
  Name = "First Instance"
  Refs.Add "DummyInstance", New IDummyInstance
  ' Call Refs("DummyInstance").DoSomething()
  Refs.Remove "DummyInstance"
  Name = "Second Instance"
  Refs.Add "DummyInstance", New IDummyInstance
  ' Call Refs("DummyInstance").DoSomething()
  Refs.Remove "DummyInstance"
End Sub

Parece que vale la pena usarlo si tiene un script que no es demasiado complicado.