The following works for me from the command window. Would probably work under runtime?

oForm = newobject('form')
oForm.AddObject('MSWinsock.Winsock.1', 'oleControl')
oForm.AddObject('oleWinsock','oleControl', 'MSWinsock.Winsock.1')
lcIP = oForm.oleWinsock.LocalIP
lcHost = oForm.oleWinsock.LocalHostName

>You could also subclass the OLEControl. The same license information is embedded in the VCX. However, because the object is an OLEControl, there is a workaround for using the subclass in code. You have to add it to a form at run-time. The following might work:

>oform = createobject('form')
>oform.Newobject('owinsock','mywinsockclass','mywinsockclasslibrary')
>? oform.owinsock.LocalIP
>oform.release
>release oform

>
>HTH.