SoapConnection Conn //Define SOAP connection
Long ret
membershipprovidersoap mystation //Define Proxy
tns__MembershipUser structure  //Define result structure

boolean    lb_test

SetPointer(HourGlass!)

Conn = create SoapConnection
Ret=Conn.CreateInstance(mystation, "membershipprovidersoap")

if Ret <> 0 then
   Messagebox("CreateInstance", "Failed, returnvalue = "+string(ret))
else
  Try
    lb_test = True
    structure = mystation.GetUser(  'toto', lb_test )
    MessageBox ('',structure.IsOnLine)

  Catch ( SoapException ex )
    //error handling
    messagebox("soapexception", ex.text) 
  end try

end if
Destroy Conn