{NeoBook Function}
Version=5,60
Language=VBScript
Param=[%1]|Mixed|Exe URL
Param=[%2]|Mixed|Parameters
Param=[%3]|Variable|Variable to store
{End}
Function ExeRun()
    Set oWs = CreateObject("WScript.Shell")
    Set objScriptExec = oWs.Exec("[%1] [%2]")
    strRes = objScriptExec.StdOut.ReadAll
    ExeRun = strRes
End Function

publication.nbSetVar "[%3]", ExeRun()
