Invocar Objetos COM

WHEN EXCEPTION IN
    oCom is object OLE dynamic
    oCom = GetActiveObject(“SYStree.fls_sysfunc”)
    IF oCom=Null THEN
        Error("No se ha podido instanciar el objeto SYStree.fls_sysfunc")
        EndProgram()
    END
DO
    Info(oCom>>cPathDAtos + " " + oCom>>cPathRaiz)
    oCom = Null
END