Fala galera... Seguem dois exemplos:

Define Class MeuWS As Session OlePublic
    Procedure Init
        * Qualquer coisa
    EndProc

    Procedure Executar(m.SeiLá)
        * Qualquer coisa
    EndProc

EndDefine

Eu preciso criar uma rotina para proteger os dados.
Eu só não sei se minha idéia está correta (veja ex abaixo).

 Define Class MeuWS As Session OlePublic
    Procedure Init
        * Qualquer coisa
    EndProc

    Procedure Executar(m.Usuario, m.Senha, m.SeiLá)
        If UsuarioInvalido OU SenhaInvalida
            Return "Acesso Negado"
        EndIf
        * Qualquer coisa
    EndProc

EndDefine

Também pensei em fazer isso no INIT e assim negar acesso já na hora de instanciar o COM.
Mas neste caso, não sei como fazer para chamar esse webservice mandando parametros... (Aliás, nem sei se é possível)

Define Class MeuWS As Session OlePublic
    Procedure Init(m.Usuario, m.Senha) 
        If UsuarioInvalido OU SenhaInvalida
            Return .F.
        EndIf
        * Qualquer coisa
    EndProc

    Procedure Executar(m.SeiLá)
        * Qualquer coisa
    EndProc

EndDefine

Fiz a coisa certa quando coloquei usuário e senha na chamada do método ou está errado?...
Qual seria a solução?

[]s