F_CALL_VBSCRIPT

// Function Name : f_call_vbscript
// Argument Name : (None)
// Return Type :       (None)

OleObject ole_wsh
Integer li_connect

ole_wsh = Create OleObject
li_connect = ole_wsh.ConnectToNewObject("MSScriptControl.ScriptControl")
ole_wsh.language = "vbscript"
ole_wsh.addcode("function retfnc (s) retfnc=s end function")
ole_wsh.executestatement('if 1 > 1 then msgbox retfnc("true") else msgbox retfnc("false") end if')