使用VBScript及Winsock.ocx是不是不能建TCPserver？解决思路

使用VBScript及Winsock.ocx是不是不能建TCPserver？
想调试一个程序，目标程序是连向一个TCPServer的，TCPServer向它发数据。为了方便调试我想用VBScript弄一个TCPserver,这样我就可以修改一个脚本来改变调试的过程，结果怎么弄也弄不成。下面是我的代码。

Dim revdata
set sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" )
set sc=createobject( "WScript.Shell" )
Set fso =CreateObject( "Scripting.FileSystemObject" )
sock.LocalPort = 1500
sock.Listen



Sub WSEvent_ConnectRequest(requestID)'这个函数从来没有调用过
wscript.echo "onnectRequest!"

'If sock.State <> sckClosed Then sock.Close
sock.Accept requestID
sock.SendData "Text"
end sub


Sub WSEvent_DataArrival(bytes)
MyString= "blank" 
sock.GetData MyString
revdata=MyString
sock.SendData "Text"
end sub

While Not bClose
WScript.Sleep 1
Wend


搞来搞去发现一连它马上就关闭了。

大家给我出出主意吧！

[解决办法]
是 VBS 还是有许多限制的。
[解决办法]
sock 的初始化工作尚未完成。
sock.listen 之前你起码得有一个语句让sock知道要调用 WSEvent_ConnectRequest 这个语句吧！