ScriptControl Add object with .AddCode

[TheAutomator]

Hello 

I'm not so familiar with the scriptcontrol, can you help me with this little problem?

Why is this script not working correctly?

Global $oVbs = ObjCreate('MSScriptControl.ScriptControl')
With $ovbs
    .Language = "VBScript"
    .AllowUI = True
    .AddCode('Class Test:Public Function X:X = 123:End Function:Set C = New Test')
    .AddCode('MsgBox IsObject(C)'); should be true, no?
EndWith

MsgBox(0,'',$oVbs.Eval('C').X)

Also: how do I add code to the global module?

Thanks,

TheAutomator

Edited August 8, 2015 by TheAutomator

[Danyfirex]

You're not Closing your Class 

 

Global $oVbs = ObjCreate('MSScriptControl.ScriptControl')
With $ovbs
    .Language = "VBScript"
    .AllowUI = True
    .AddCode('Class Test:Public Function X:X = 123:End Function:End Class:Set C = New Test')
    .AddCode('MsgBox IsObject(C)'); should be true, no?
EndWith

MsgBox(0,'',$oVbs.Eval('C').X)

 

Saludos

[TheAutomator]

You're not Closing your Class 

!!

Thank you Danyfirex, I feel stupid now 

[Danyfirex]

You're wellcome. 

Saludos