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