Claudio,

The code is very simple :

PROCEDURE execute()
PARAMETERS auPar1

LOCAL loTel

loTel=NEWOBJECT("MsWinsock.Winsock.1")
loTel.RemoteHost = "Localhost"
loTel.RemotePort = 1979
loTel.Protocol = 1
loTel.Senddata("0"+ALLTRIM(auPar1))

loTel=NULL
ENDPROC

It's on the line with the NEWOBJECT that the ole error occurs.

Guillaume