Como obtener estos datos?

[Fastlane]

Por si alguien llegara a necesitarlos:
dim server_ip
server_ip=Me.Request.ServerVariables("LOCAL_ADDR")
me.Txt_ipserver.text=server_ip

Dim cliente_ip
cliente_ip = Me.Request.ServerVariables("REMOTE_ADDR")
Me.Txt_ipcliente.Text = cliente_ip

Dim puertserver
puertserver = Me.Request.ServerVariables("SERVER_PORT")
Me.Txt_pueserver.Text = puertserver

Dim puertcliente
puertcliente = Me.Request.ServerVariables("REMOTE_PORT")
Me.Txt_puecliente.Text = puertcliente

Dim nomserver
nomserver = Me.Request.ServerVariables("SERVER_NAME")
Me.Txt_server.Text = nomserver