cscript test.vbs

code:

---

Dim oSocket

Set oSocket = WScript.CreateObject("mswinsock.winsock", "oSocket_")

oSocket.Protocol=0
oSocket.LocalPort=80
oSocket.RemotePort=0
oSocket.Listen				

WScript.Echo "Sleeping for ten seconds ..."

WScript.Sleep 10000

sub oSocket_ConnectionRequest(requestID)
 msgbox "Connection Request Received !!!"
end sub

---

This is fun !

-Shawn

[ 25 September 2001: Message edited by: Shawn ]