OleObject wsh

integer  li_rc

CONSTANT integer MAXIMIZED =

CONSTANT integer MINIMIZED =

CONSTANT integer NORMAL =

CONSTANT boolean WAIT = TRUE

CONSTANT boolean NOWAIT = FALSE

wsh = CREATE OleObject

li_rc = wsh.ConnectToNewObject( "WScript.Shell" )

li_rc = wsh.Run(ls_run,NORMAL, WAIT)