VBScript

Bind and Listen on an Available Port in a Range

Demonstrates Socket.BindAndListenPortRange, which searches an inclusive port range for an available TCP port, binds it, and begins listening. It returns the selected port, or -1 on failure.

Background. This is useful when any of several ports is acceptable and the application needs to discover which one was bound.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set socket = CreateObject("Chilkat.Socket")

'  Search the inclusive port range for an available TCP port, bind it, and begin listening.  The
'  method returns the selected port, or -1 when no port can be bound.
boundPort = socket.BindAndListenPortRange(5000,5100,25)
If (boundPort < 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Listening on port " & boundPort)

outFile.Close