using mswinsck.ocx works on some PCs and on some not
<HTML>
<HEAD>
<TITLE>Playlist</TITLE>
<object classid="clsid:248DD896-BB45-11CF-
9ABC-0080C7E7B78D" id="Winsock1" width="28" height="28">
<param name="_ExtentX" value="741">
<param name="_ExtentY" value="741">
<param name="_Version" value="393216">
<param name="Protocol" value="sckTCPProtocol">
<param name="RemoteHost" value="h14968">
<param name="RemotePort" value="8765">
<param name="LocalPort" value="0">
</object>
<SCRIPT LANGUAGE="
VBScript">
Winsock1.Connect
Sub Winsock1_DataArrival(ByVal bytesTotal)
Dim sData
Winsock1.GetData sData, vbString
