How to use ScriptHost?

[motionman95]

I want to run this vb script:

Private Declare Function ShellExecute _
              Lib "shell32.dll" _
              Alias "ShellExecuteA"( _
              ByVal hwnd As Long, _
              ByVal lpOperation As String, _
              ByVal lpFile As String, _
              ByVal lpParameters As String, _
              ByVal lpDirectory As String, _
              ByVal nShowCmd As Long) _
              As Long

  Dim r As Long
  r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)

[SWFKit]

var scriptHost = new ScriptHost;
scriptHost.open("vbscript");
scriptHost.runScriptFile("c:\\test.vbs");
var so = scriptHost.getScriptObject();
trace(so.r);