[Bug 56781] New: srcrrun: Dictionary setting item to object fails

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=56781

Bug ID: 56781
           Summary: srcrrun: Dictionary setting item to object fails
           Product: Wine
           Version: 9.4
          Hardware: x86-64
                OS: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: scrrun
          Assignee: [e-mail]
          Reporter: [e-mail]
      Distribution: ---

Reproducer in vbscript

Class C
End Class
Dim cls1: Set cls1 = new C
Dim cls2: Set cls2 = new C
Dim dict: Set dict = createobject("scripting.dictionary")
Dim key: key = "test"
dict.Add key, cls1
Set dict.Item(key) = cls2

Looks like this is not implemented
https://gitlab.winehq.org/wine/wine/-/blob/master/dlls/scrrun/dictionary.c?r...

Without understanding the code this should maybe increase the reference count
and delegate to dictionary_put_Item?