Solution
In our Javacript function we create an "MSScriptControl" object and execute the VBScript code via this scripting host.

You may use the following JavaScript functions for this purpose:

JavaScript framework

// vbs.js
// Execute VBScript from JavaScript via scripting host

// execute expression and return result
function vbsExecute(source,textid)
{
   var result = getSH().Eval(source);
   
   if (textid)
   {
     guixt.setText(textid,result);
     return "";
   }
   else
   {
     return result;
   };      
}

// add VBScript functions
function vbsAddCode(textid) {
     var source = guixt.getText(textid);
     getSH().AddCode(source);
}

// create scripting host
var scriptingHost = null;
function getSH() {
    if (!scriptingHost) {
        scriptingHost = 

             guixt.CreateObject("MSScriptControl.ScriptControl");
        scriptingHost.Language = "VBScript";
        scriptingHost.AllowUI = true;
        scriptingHost.TimeOut = 60000; 
    };

    return scriptingHost;
}

Example 1
We execute a single VBScript statement:

// determine name of month
CallJS monthname = vbsExecute "MonthName(8)"

// display the result (test)
Message "&V[monthname]"

Example 2
We read VBScript code from a .vbs file, add the code in the scripting host and execute a VBScript function.

Please observe that adding the code should be done only once; this logic is not implemented in the InputScript below but in Example 3.

VBScript "monthnames.vbs"

Function  MyMonthName(index, language)
  SetLocale(language) 
  MyMonthName = MonthName(index)
End Function


InputScript

// Read VBScript code from .vbs file
CopyText fromFile="monthnames.vbs" toText="code"

// to scripting host
CallJS vbsAddCode "code"

// call up the VBScript function
CallJS monthname = vbsExecute "MyMonthName(8, ""IT"")"

// display the result (test)
Message "&V[monthname]"

Example 3
The user chooses a computer from a drop-down list and then obtains a list of all processes running on this computer:

Click on the image for a larger display 

We also offer an "Excel" button which downloads the data to a CSV file, and a filter button which shows all processes with a CPU activity since the last display.

VBScript "processes.vbs"

' Use WMI (Windows Management Instrumentation) service
' to list the processes on a computer in the local network
Function GetProcesses(computername)
    
    Dim objWMIService, objProcess, colProcess
    On Error Resume Next    
    Set objWMIService = _
            GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
              & computername & "\root\cimv2")
    
    If objWMIService Is Nothing Then
      GetProcesses = ""
      Exit function
    End if
    
    Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process")
    
    Dim s
    s = ""
    
    
    For Each objProcess In colProcess
        With objProcess
            
            If s <> "" Then
                s = s & vbCrLf
            End If 
            
            s = s & csvString(.ProcessId)  & ";"
            s = s & csvString(LCase(.Name))  & ";"
            s = s & csvString(.Name)  & ";"
            s = s & csvString(GetVBDate(.CreationDate))  & ";"
            s = s & csvString(FormatNumber _
                      (.WorkingSetSize/1024,0) & " K") & ";"
            s = s & csvString(.Priority) & ";"
            s = s & csvString(FormatNumber _
                      (.UserModeTime/10/1000,0) & " ms") & ";"
            s = s & csvString(FormatNumber _
                      (.KernelModeTime/10/1000,0) & " ms") & ";"
            s = s & csvString(FormatNumber _
                      (.ReadOperationCount,0)) & ";"
            s = s & csvString(FormatNumber _
                      (.WriteOperationCount,0)) & ";"
            s = s & csvString(FormatNumber _
                      (.WriteTransferCount/1024,0) & " K") & ";"
            s = s & csvString(FormatNumber(.HandleCount,0)) & ";"
            s = s & csvString(" " & .CommandLine)
        End With    
    Next
    
    GetProcesses = s
        
End Function

' Date formatting
Function GetVBDate(wd)
  GetVBDate = DateSerial(left(wd,4),mid(wd,5,2),mid(wd,7,2)) _
       + TimeSerial(mid(wd,9,2),mid(wd,11,2),mid(wd,13,2))
End Function


' CSV string format, doubling inner "
Function csvString(s)
    
    If s = "" Or VarType(s) = vbNull Then
        csvString = ""
    Else
        csvString = """" & Replace(CStr(s), """", """""") & """" 
    End If 
    
End Function

GuiXT Script

// select computer
Text (1,14) "Computer" -label
Set text[computernames] "SC=My PC;server1=Server 1;server2=Server 2"
DropDownList (1,23.2) "computernames" width=41 _
  refer="V[computername]" process="read_processes.txt"

// create process table
if not V[proc]
  CreateTable V[proc] _
       ProcessId NameLower Name CreationDate WorkingSetSize Priority _
       UserModeTime KernelModeTime _
       ReadOperations WriteOperations WriteTransfers _
       HandleCount CommandLine
endif

if V[computername]
 // process table of selected computer
 table (3,14) (37,250) name="proc"   _
    title="&V[proc.rowcount] processes on &V[computername]" _
    fixedColumns="12" -rowSelection
  column "Name" name="Name" size=30 -readOnly
  column "PID" name="ProcessId" size=10 -readOnly
  column "Start time" name="CreationDate" size=20 -readOnly
  column "WorkingSetSize" name="WorkingSetSize" size=16 -readOnly -alignRight       
  column "Priority" name="Priority" size=10 -readOnly -alignRight
  column "UserModeTime" name="UserModeTime" size=16 -readOnly -alignRight
  column "KernelModeTime" name="KernelModeTime" size=16 -readOnly -alignRight
  column "ReadOperations" name="ReadOperations" size=16 -readOnly -alignRight
  column "WriteOperations" name="WriteOperations" size=16 -readOnly -alignRight
  column "WriteAmount" name="WriteTransfers" size=16 -readOnly -alignRight
  column "HandleCount" name="HandleCount" size=12 -readOnly -alignRight
  column "CommandLine" name="CommandLine" size=68 -readOnly
endif

InputScript "read_processes.txt"

// computer selected?
if not V[computername]
  Return "W: Please select a computer" -statusline
endif

// install VBScript code
if not V[proc_code_added]

  // indicate: VBS code loaded
  Set V[proc_code_added] "X"

  // Read VBScript code from a .vbs file
   CopyText fromFile="C:\temp\processes.vbs" toText="code"

  // to scripting host
   CallJS vbsAddCode "code"

// call up the VBScript function
CallJS vbsExecute "GetProcesses(""&V[computername]"")" "csvproc"

// to table
CopyText toTable="V[proc]" fromText="csvproc" delimiter=";"

// sort by name (ignore case)
Sort table="V[proc]" orderBy="NameLower,ProcessId"

// reset table display parameters
Clear V[proc.stat.*]

InputScript "excel_processes.txt"

InputScript "active_processes.txt"

Components
InputAssistant + Controls