Derruba conexão do Usuário do Banco de Dados!

Boa tarde Rodolpho,
Eu alterei o código para o meu ambiente e não está derrubando o usuário.

Segue.

Código:

DEF VAR login  AS CHAR FORMAT "x(12)" INITIAL "" NO-UNDO.
DEF VAR idUser AS CHAR INITIAL "" NO-UNDO.

FORM login
    LABEL "Login do Usuário"
    WITH FRAME selecao
    SIDE-LABELS
    CENTERED
    OVERLAY
    NO-LABEL
    TITLE "Derruba Usuário"
    ROW 1.

UPDATE login WITH FRAME selecao.

RUN derrubaEMS2CAD.

PROCEDURE derrubaEMS2CAD.
    FIND FIRST mgcad._userio
        WHERE mgcad._userio._userio-name = INPUT FRAME selecao login NO-ERROR.

    IF AVAIL mgcad._userio THEN DO:
        ASSIGN idUser = STRING(mgcad._userio._userio-usr).

        DOS SILENT VALUE("D:\Datasul\dlc10\bin\proshut D:\Bancos\tst\ems206teste\ems2cad -C disconnect " + STRING(idUser)).
    END.
    ELSE
        MESSAGE "Não foi possível encontrar o usuário informado."
            VIEW-AS ALERT-BOX INFO BUTTONS OK.

END PROCEDURE.

Se eu executar o comando no proenv ai funciona.

Att,
Leandro.