Socket Server - Client IP address and Name

[dkalsow]

Good Morning,

I have created a Socket Server with the following Code:
Private Sub ReceiveCallBack(ByVal ar As IAsyncResult)
Dim sb As SocketAndBuffer = CType(ar.AsyncState, SocketAndBuffer)
Dim test(1) As String
Dim numbytes As Int32 = sb.Socket.EndReceive(ar)
Dim msg As Byte() = Encoding.ASCII.GetBytes(strHtml)

If numbytes > 0 Then
'-- Convert the buffer to a string
Dim Receive As String = ASCII.GetString(sb.Buffer, 0, numbytes)

_count += 1
'-- Show the data
Dim dlg As New ShowReceiveDataDelegate(AddressOf ShowReceiveData)
Dim args() As Object = {Receive}
Me.Invoke(dlg, args)
'-- Echo the data
sb.Socket.Send(msg, 0, msg.Length, SocketFlags.None)
'-- Clear the buffer
Array.Clear(sb.Buffer, 0, sb.Buffer.Length)
'-- Receive again
sb.Socket.Close()
End If
End Sub

Private Delegate Sub ShowReceiveDataDelegate(ByVal Data As String)

Private Sub ShowReceiveData(ByVal Data As String)

lstReq.Items.Add(Data)

End Sub

I want to get the ip address of the client along with there name and display
it in the lstreq list box.

Does anyone know how to do this. I am attaching to the winsock server
though a browser.

Thanks in advance!

Dale