What I do:
- Code: Select all
Function F1()
dim oWs
Set oWs = CreateObject("WScript.Shell")
strCommand = oWs.Run ("[PubDir]app.exe",1,True)
Set objExecObject = objShell.Exec(strCommand)
Set objStdOut = objWshScriptExec.StdOut
F1 = objStdOut
End Function
publication.nbSetVar "[%1]", F1()
Anyone knows how to do it? Thanks!
Saludos.