Get JS Global Object within VBScript.vbs

' получение jsglobal
set htmlfile = createobject("htmlfile")
set jsglobal = htmlfile.parentwindow
jsglobal.execscript ";", "jscript"
' тестирование
msgbox jsglobal.math.pi ' отображает 3,14159265358979
jsglobal.eval("var dict = new ActiveXObject('Scripting.Dictionary'); dict('mykey') = 'myvalue'; alert('test');")
msgbox jsglobal.dict.item("mykey") ' отображает myvalue
msgbox typename(jsglobal.eval("window")) ' отображает Empty
msgbox typename(jsglobal.eval("this")) ' отображает Empty
msgbox typename(jsglobal.eval("(function (){return window})()")) ' отображает Empty
msgbox typename(jsglobal.eval("(function (){return this})()")) ' отображает Empty
msgbox jsglobal.eval("({transfer:window})").transfer is jsglobal ' отображает Истина
msgbox jsglobal.eval("({transfer:this})").transfer is jsglobal ' отображает Истина
set htmlfile = nothing